DVDUnlockSupport Example for Visual Basic

Public pSprtMngr As New ltmmSupportManager

Public Sub DVDUnlockSupport()
   Dim strKey As String
   If pSprtMngr.IsSupportLocked(L_SUPPORT_CONVERTFROMDVD) = True Then
      strKey = "DVDKey"
      pSprtMngr.UnlockSupport L_SUPPORT_CONVERTFROMDVD, strKey
      If pSprtMngr.IsSupportLocked(L_SUPPORT_CONVERTFROMDVD) = True Then
         MsgBox "The DVD is not unlocked"
      End If
   End If
End Sub