Завершение работы программы

[VAngel]

У меня есть такая штука:

Код: Выделить всё

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Дествительно?", vbOKCancel, "Form1") = vbCancel Then
    UnloadMode = vbFormControlMenu
    Cancel = True
End If
Call savelog
End Sub

но при завершении работы виндов, они, т.е. винды, не закрввают программу, а просто поевляется это окно и винды пишут что программа не отвечает. Как можно этого избежать?

[alibek]

Код: Выделить всё

If UnloadMode = vbControlMenu Then
  If MsgBox() = vbCancel Then
    Cancel = True
  End If
End If

[Александр80]

У меня тоже была такая проблема…

Alibek, спасибо…
Блин, а ведь все просто.
Пойду пробовать....

[VAngel]

Как все просто спасибо