NetReceiveReleaseRequest Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveReleaseRequest (ByVal hNet As Long)
    Dim out$
    'Release Request was received
    out$ = "Release Request was received"
    List2.AddItem out$
    LEADDICOMNet1.SendReleaseResponse hNet
End Sub