Introduction - If you have any usage issues, please Google them yourself
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