VB IGMP

VB IGMP(3) WSACleanUp 
End Sub

Private Sub Timer1_Timer() 
If t Then
     send sock, String(60000, "0"), 60000, 0
     t = t - 1
Else
     Timer1.Enabled = False
     Set cmd_Go.Picture = Image2.Picture
End If
End Sub