NetReceiveAssociateReject Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveAssociateReject (ByVal hNet As Long, ByVal nResult As Integer, ByVal nSource As Integer, ByVal nReason As Integer)
    MsgBox "Associate Request was rejected: Result= " & CStr(nResult) & " Source=" & CStr(nSource) & " Reason=" & CStr(nReason)
End Sub