Почему не срабатывает Unload Me

[Zp]

If 1 = 1 Then
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & ".exe"
MsgBox "Write OK"
Unload Me
End If

MsgBox "ggg" 'отрабатывает

что за хрень.?

[tyomitch]

Для немедленного завершения есть оператор End.

[GSerg]

Если вслед за unload идут ещё команды, то происходит unload, затем load, затем начинают выполняться эти команды.
Exit sub.

[Zp]

Если Exit sub то прога остается висеть в памяти...

[Zp]

If Command = "write" Then
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & ".exe"
MsgBox "Write OK"
Unload Me
Exit Sub
End If

так вроде...

[BV]

Вместо Me - For Each hForm In VB.Forms > Unload hForm

[Мамонт]

А почемеу нельзя просто вот твк?:

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

If Command = "write" Then
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & ".exe"
MsgBox "Write OK"
END
End If


[Twister]

Перед закрытием проги желательно закрыть все ее окна (формы), выгрузить все объекты и т.д. Как-то я столкнулся с такой проблемой (прога что-то оставляла в памяти, а что Х.З.), так пришлось выход делать через TerminateProcess.