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