NetReceiveData Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveData(ByVal hNet As Long, ByVal nID As Integer, ByVal hDicomCS As Long, ByVal hDicomDS As Long)
    'data was received
    List2.AddItem "Data was received - " & " ID: " & CStr(nID)
    
    If (hDicomDS = 0) Then
        List2.AddItem "Data is a command set only!"
    Else
        'save the data set to disk
        List2.AddItem "Data includes a data set - saved to disk!"
        LEADDICOM1.SaveExtDS hDicomDS, "c:\temp\test.dic", 0
    End If
End Sub