ltmmCaptureCtrl.WMProfile Example for Visual Basic

' This function displays the currently associated WM
' Profile for the specified capture object
Private Sub DisplaySelectedProfileName(Capture As ltmmCaptureCtrl) 
Dim CurrentProfile As ltmmWMProfile

Set CurrentProfile = Capture.WMProfile
If Not CurrentProfile Then
    MsgBox CurrentProfile.Name + " Is the currently selected", vbInformation, "Settings"
Else
    MsgBox "There are currently no profiles associated with this capture object"
End If

End Sub