InitCS Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestInitCS ()
   Dim out As String

   'create a data set as a command set
   LEADDICOM1.InitCS(LTDICLib.DicomCommandSetConstants.COMMAND_C_STORE, True)

   'gets information about the command set
   LEADDICOM1.GetInfoCS()
   out = "Command: " & CStr(LEADDICOM1.InfoCommand)
   out = out & Chr(13)
   out = out & "Request: " & CStr(LEADDICOM1.InfoRequest)
   MessageBox.Show(out)
End Sub