NetReceiveAssociateAccept Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveAssociateAccept (ByVal hNet As Long, ByVal hPDU As Long)
    MsgBox "Associate Accept Received - " & CStr(LEADDICOMNet1.IsAssociated (hNet))
End Sub