winsockでのエラーについて (ID:87296)

名前

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

本文 Private Sub tcp_ConnectionRequest(Index As Integer, ByVal requestID As Long) 'コントロール配列０で接続要求あり '０番目のWinsockは配列要求受付用 実際に接続には使用しない。 If Index = 0 Then tcpNum = tcpNum + 1 '添字を加算 '新規にWinsockを追加 Load tcp(tcpNum) '新規通貨したWinsockのポート番号設定（０とする） tcp(tcpNum).LocalPort = 0 '新規接続処理をする tcp(tcpNum).Accept requestID End If End Sub と参考にっしてプログラムを作成しってるのですが、コンパイルエラーでプロシジャー宣言、イベントまたはプロシージャーの定義がって、でるのですが原因がわかりませんので教えてください。