BOTAO FECHAR X COM MENSAGEM VB6

MARIOANDRADE 24/11/2013 11:40:45
#431413
Olá pessoal, estou tentando criar uma mensagem SIM ou NÃO no botão fechar
do formulário, quero adaptar este código:

[txt-color=#0000f0]If txtNome.Text <> [Ô][Ô] Or txtCel.Text <> [Ô][Ô] Then
MsgBox [Ô]Existem dados que ainda não foram salvos![Ô], vbInformation, [Ô]M4R10 - Soluções empresariais![Ô]
SSTab1.Tab = 0
Exit Sub
Else

Dim Sair As String
Sair = MsgBox([Ô]Tem certeza que deseja sair do sistema?[Ô], vbYesNo + vbDefaultButton2, [Ô]M4R10 - Soluções Empresariais![Ô])
If Sair = vbNo Then Exit Sub
Unload Me
End If [/txt-color]

Para o evento [txt-color=#0000f0]Form_QueryUnload[/txt-color] do formulário.
ALVAROVB2009 26/11/2013 17:24:47
#431507 Resposta escolhida
Vai no evento Unload do Form e coloquei esse código

If MsgBox([Ô]Deseja encerrar[Ô], vbYesNo, [Ô]Atenção[Ô]) = vbNo Then
Cancel = 1
end if
Tópico encerrado , respostas não são mais permitidas
Voltar