Dim sair As Integer
sair = MsgBox("Tem certeza que deseja encerrar.", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Atenção")
If sair = vbYes Then
End
Else
e.Cancel = True
End If
A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein
0 comentários:
Postar um comentário
Click to see the code!
To insert emoticon you must added at least one space before the code.