Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
      (ByVal lpClassName As String, _
       ByVal lpWindowName As String) As Long
 
Private Declare Function GetActiveWindow Lib "user32" () As Long
 
Private Declare Function SetWindowPos Lib "user32" _
       (ByVal hwnd As Long, _
        ByVal hWndInsertAfter As Long, _
        ByVal x As Long, _
        ByVal y As Long, _
        ByVal cx As Long, _
        ByVal cy As Long, _
        ByVal wFlags As Long) As Long
 
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
 
 
Private Function SetMYWinToFront(ByVal bMode As Boolean) As Boolean
     If bMode Then
        SetWindowPos FindWindow(,"MyProg"), GetActiveWindow, 0  0, 0, 0, _
          SWP_NOMOVE Or SWP_NOSIZE
 
     Else
        SetWindowPos FindWindow(,"MyProg"), HWND_TOPMOST, Me.Top, Me.Left, 0, _
          0, SWP_NOMOVE Or SWP_NOSIZE
     End If
End Function
 
Sub Form_Load() 
    if App.PrevInstance then 
        SetMyWinToFront False
        End
    else 
       msgbox "Erster Start" 
    end if 
End Sub