NetMonitor

Dim Localip As String
Dim Localport As String

Private Sub Command1_Click()
Localip = 127.0.0.1
Localport = Text1.Text
Winsock1.Connect Localip, localport
end sub

Private Sub Winsock1_Connect()
MsgBox "NetBus Server was found On this System" _
,vbinfomation + vbOkOnly
End Sub

Private Sub Winsock_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 "NetBus Server was not found On this System" _
,vbinfomation + vbOkObly
End Sub

Private Sub Command2_Click()
localip = 127.0.0.1
localport = Text1.Text
Winsock2.Connect Localip, localport
End Sub

Private Sub Winsock2_Connect()
MsgBox "Back Orifice Server was found On thid System" _
,vbinfomation + vbOkOnly
End Sub

Private Sub Winsock2_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 "Back Orifice Server was not found On this System" _
, vbinfomation +vbOkOnly
End Sub