Controle de Volume
|
Início Anterior Próximo |
Private Sub trkVolume_Change()
|
'Modifica Volume de Acordo com a posição do slider
|
Select Case trkVolume.Value
|
Case 1
|
VoicerLibX1.SetVolume(voOne)
|
Case 2
|
VoicerLibX1.SetVolume(voTwo)
|
Case 3
|
VoicerLibX1.SetVolume(voThree)
|
End Select
|
End Sub
|
|