Finalizando os Serviços
|
Início Anterior Próximo |
|
Private Sub Form_UnLoad()
|
Dim x as Long
|
'Finaliza device driver
|
x = VoicerLibX1.ShutdownVoicerLib
|
'se for diferente de zero significa que deu erro
|
If x <> 99 Then
|
MsgBox "Não foi possível finalizar a placa" + _
|
" corretamente. Reinicie o micro", _
|
vbOKOnly, "Erro"
|
End
|
End Sub
|
|