pingプログラム コンパイラエラーの解決策は？ (ID:125730)

名前

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

本文 http://vbnet.mvps.org/index.htmlに掲載されていたものを使い、Pingのプログラム試そうとしたら Private Sub Command1_Click() Dim ECHO As ICMP_ECHO_REPLY Dim pos As Long Dim success As Long If SocketsInitialize() Then 'ping the IP by passing the address, 'text to send, and the ECHO structure. success = Ping((Text1.Text), (Text2.Text), ECHO) 'display the results Text3(0).Text = GetStatusCode(success) Text3(1).Text = ECHO.Address Text3(2).Text = ECHO.RoundTripTime & " ms" Text3(3).Text = ECHO.DataSize & " bytes" If Left$(ECHO.Data, 1) <> Chr$(0) Then pos = InStr(ECHO.Data, Chr$(0)) Text3(4).Text = Left$(ECHO.Data, pos - 1) End If Text3(5).Text = ECHO.DataPointer SocketsCleanup Else MsgBox "Windows Sockets for 32 bit Windows " & _ "environments is not successfully responding." End If End Sub のところで、各text.textのところで変数が定義されていません、とコンパイルエラーが出てしまいました。 解決策、どなたかわかる方教えてください