Confirmação ao sair do jgoo

Vá na frmMirage e na label lblQit substitua o código que há dentro dele para:

Código:

Dim value As Long

value = MsgBox("Tem certeza de que deseja sair do jogo?", vbYesNo, frmMirage.Caption)
If value = vbYes Then
MsgBox ("Obrigado pela preferencia!")
    Call GameDestroy
Else
    Exit Sub
End If

Pronto, até o próximo.

Créditos: RenanR*