Код: Выделить всё
Private Sub Command1_Click()
wins.RemoteHost = "81.177.13.7"
wins.RemotePort = 6900
wins.LocalPort = 3434
wins.Connect
If wins.State = sckConnected Then
Label1.Caption = "Connected"
Else
Label1.Caption = "Error"
End If
End Sub
Мож кто знает в чем трабла?