オブジェクト参照エラーでインスタンスを設定するには？ (ID:126940)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

6.0(別の人製作)から.netに書き換えているのですが、追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。というエラーの解決法がわかりません。  過去ログをみたのですが、formとformのやりとりは結構あったのですが、moduleとformということもあり初心者なのでよく分かりませんでした。環境は.netです。ご教示願います。

'Module1

Public Module Module1
 Public Declare Function ibdev32 Lib "Gpib-32.dll" Alias "ibdev" (ByVal bdid As Long, ByVal pad As Long, ByVal sad As Long, ByVal tmo As Long, ByVal eot As Long, ByVal eos As Long) As Long

Public Sub copy_ibvars()
        ibsta = ConvertLongToInt(Longibsta)
        iberr = CInt(Longiberr)
        ibcnt = ConvertLongToInt(ibcntl)
    End Sub

Public Sub ibdev(ByVal bdid As Integer, ByVal pad As Integer, ByVal sad As Integer, ByVal tmo As Integer, ByVal eot As Integer, ByVal eos As Integer, ByVal ud As Integer)
        ' Check to see if GPIB Global variables are registered
        If (GPIBglobalsRegistered = 0) Then
            Call RegisterGPIBGlobals()
        End If

' Call the 32-bit DLL.
        ud = ConvertLongToInt(ibdev32(bdid, pad, sad, tmo, eot, eos))

Call copy_ibvars()
    End Sub
end module

'form1
Public Class Form1
    Inherits System.Windows.Forms.Form

Public AVS As Integer
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call ibdev(0, 20, 0, 11, 1, 0, AVS)
        Call ibclr(AVS)
        Call ibwrt(AVS, "*CLS;")
        Call ibwrt(AVS, "REM 1")
      
    End Sub
end class

←解決時は質問者本人がここをチェックしてください。

戻る