som om det inte var nog att se om det finns en annan instans öppen av programmet, behöver jag nu sätta fokus på det som redan kör och även lägga det överst, om det finns andra program öppna.. har ni några tips?
// Fredrik

Det här kanske kan fungera.

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    If App.PrevInstance Then
        Dim sTempCaption As String
        Dim lngHwnd As Long
        
        sTempCaption = Me.Caption
        Me.Caption = "byter caption på andra kopian av programmet"
        lngHwnd = FindWindow(vbNullString, sTempCaption)

        If (lngHwnd <> 0) Then
            SetForegroundWindow lngHwnd
        End If
        
        MsgBox "Programmet redan startat"
        Unload Me
    End If
End Sub

tackar...

funkar klockrent!

// Fredrik