'Form1:
Private Sub Form_Load()
    If EnumWindows_FIND(Me, "Fenstertest", True) = True Then
        MsgBox "Mehrfachstart der Anwendung unzulässig!", vbInformation, _
          ApplName
 
        'Fensterstati: 0...normal, 1...minimiert, 2...maximiert
        If GetWindowState(RETVAL) = 1 Then
            RESULT = SetWindowState(RETVAL)
        End If
 
        RESULT = Erstes_FENSTER_POSITIONIEREN(RETVAL)
        'zur Sicherheit, gestartetes Programm soll WIRKLICH nach "oben":
        Call FormOnTop_HWND(RETVAL, True)
        Call FormOnTop_HWND(RETVAL, False)
        End
    End If
 
    Me.Caption = "Fenstertest"
    Me.Show
End Sub