Description: Private Sub cmdConnect_Click () If Len (Text1.Text) = 0 And Len (Text2.Text) = 0 Then MsgBox 123.12.25.38Exit Sub Else If Len (Text1.Text)> 0 Then tcpClient.RemoteHost = Text1.Text Else tcpClient . RemoteHost = Text2.Text End If End If tcpClient.Connect Timer1.Enabled = True End Sub
To Search:
File list (Check if you may need any files):
VB6.0“BO”.txt
Download