Private Sub Command1_Click()

Winsock1.Close

Winsock1.Connect Text1.Text, Text2.Text

End Sub

 

Private Sub Command2_Click()

Winsock1.Close

End Sub

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

MsgBox "The Port: " & Text2.Text & " Of " & Text1.Text & " Is Open!", , "Single Port Scan"

Winsock1.Close

End Sub

 

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox "The Port: " & Text2.Text & " Of " & Text1.Text & " Is Close!", , "Single Port Scan"

Winsock1.Close

End Sub