NetReceiveAssociateAccept Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetReceiveAssociateAccept(ByVal hNet As Integer, ByVal hPDU As Integer) Handles LEADDICOMNet1.NetReceiveAssociateAccept
   MessageBox.Show("Associate Accept Received - " & CStr(LEADDICOMNet1.IsAssociated(hNet)))
End Sub