segunda-feira, 29 de agosto de 2011

on

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

0 comentários:

Postar um comentário