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() Hwn = FindWindow(vbNullString, "Calculatrice") Hwn = SetForegroundWindow(Hwn) End Sub