Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
Const strProgPath = "C:\MyProg.exe"
 
Private Sub RestartMe()
 
    Call ShellExecute(Me.WhatsThisButton, "open", strProgPath, "", strProgPath, _
      1)
    Call Form_Unload(0)
 
End Sub
 
Private Sub Command1_Click()
    Call RestartMe
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
    Dim F As Form
 
        For Each F In Forms
            Unload F
            Set F = Nothing
        Next
 
End Sub

Mit freundlichen Gr??en,
Andy G.