'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