SetCalled Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSetCalled ( )
   'set called application title
   LEADDICOMNet1.SetCalled(LEADDICOMNet1.hPDU, "Called Program")
   'set calling application title
   LEADDICOMNet1.SetCalling(LEADDICOMNet1.hPDU, "Calling Program")
   'display the current values
   MessageBox.Show(LEADDICOMNet1.GetCalled(LEADDICOMNet1.hPDU))
   MessageBox.Show(LEADDICOMNet1.GetCalling(LEADDICOMNet1.hPDU))
End Sub