ltmmPlayCtrl.DVDecoderResolution Example for Visual Basic

'This function will change the small resolution
' into the second highest resolution
Private Sub SetupDV(Play As ltmmPlayCtrl) 
Dim res As ltmmDVResolution

res = Play.DVDecoderResolution

If res = ltmmDVResolution_DC Then
    Play.DVDecoderResolution = ltmmDVResolution_Quarter
ElseIf res = ltmmDVResolution_Quarter Then
    Play.DVDecoderResolution = ltmmDVResolution_Half
ElseIf res = ltmmDVResolution_Half Then
    Play.DVDecoderResolution = ltmmDVResolution_Full
End If

End Sub