CreateTargetFormats Example for Visual Basic

Public Sub CreateTargetFormat()
   Dim pformats As ltmmTargetFormats
   Dim pformat  As ltmmTargetFormat
   Dim pDICOMFilter As Object

   Set pformat = ltmmCaptureCtrl1.TargetFormats.Item(ltmmCapture_TargetFormat_DICOM) 
   pformat.UseFilterCache = True
   
   ' get the DICOM filter for private use
   Set pDICOMFilter = pformat.GetCacheObject(ltmmTargetFormat_Object_Mux) 
   If pformat.HasCacheDialog(ltmmTargetFormat_Dlg_Mux) = True Then
      pformat.ShowCacheDialog ltmmTargetFormat_Dlg_Mux, hWnd
   End If

   Set pformat = Nothing
   Set pDICOMFilter = Nothing

End Sub