NetConnect Example for Visual Basic

Private Sub LEADDICOMNet1_NetConnect (ByVal hNet As Long, ByVal nStatus As Long)
   Dim strOut As String
   Dim strTemp As String
   Dim strPeerAddress As String
   Dim lPort As Long
   
   strOut = "*** NetConnect Event *** " & Chr(13) & CStr(hNet) & " Status = " & CStr(nStatus)
   
   strPeerAddress = LEADDICOMNet1.GetPeerAddress (hNet)
   lPort = LEADDICOMNet1.GetPeerPort (hNet)
   
   strTemp = "PeerAddress = " & strPeerAddress & Chr(13) & "Port = " & CStr(lPort)
   strOut = strOut & Chr(13) & strTemp
   
   MsgBox strOut
End Sub