GetApplication Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestGetApplication ( )
   Dim hPDU As Integer

   hPDU = LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet)
   'display current Application Context
   MessageBox.Show(LEADDICOMNet1.GetApplication(hPDU))
   'change it
   LEADDICOMNet1.SetApplication(hPDU, "9.9.999.99999.9.9.9.9")
   MessageBox.Show(LEADDICOMNet1.GetApplication(hPDU))
End Sub