SetRequest Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSetRequest ( )
   'set associate as Accept
   If (LEADDICOMNet1.hPDU <> 0) Then
      LEADDICOMNet1.SetRequest(LEADDICOMNet1.hPDU, False)
   End If
End Sub