- Код: Выделить всё
Private Sub Form_Terminate()
Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus
End Sub

Private Sub Form_Terminate()
Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus
End Sub 
Сейчас этот форум просматривают: Yandex-бот и гости: 7