NetReceiveAssociateReject Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetReceiveAssociateReject(ByVal hNet As Integer, ByVal nResult As Short, ByVal nSource As Short, ByVal nReason As Short) Handles LEADDICOMNet1.NetReceiveAssociateReject
   MessageBox.Show("Associate Request was rejected: Result= " & CStr(nResult) & " Source=" & CStr(nSource) & " Reason=" & CStr(nReason))
End Sub