Appel calculatrice à partir OCX

Je souhaite appeler une calculatrice par un dblclick.
Et ce, dans un OCX sur lequel je suis entrain de travailler (et de ramer)
Avec la calculatrice Windows , cela fonctionne.
Un dblclick et elle apparaît.
Avec une autre calculatrice compilée avec vb6 l'appel se fait mais cette dernière se met dans la barre des tâches et il faut cliquer dessus pour qu'elle se positionne (mal d'ailleurs) sur la form.
L'un d'entre vous a t-il une idée ?
Merci
jean yves






jyb

Avec ces 2 APIs tu pourras ouvrir un prog (ici la calcul de windows). si elle est déjà ouverte on la met sur le dessus, sinon on l'ouvre.


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

Public Sub OuvreCalculatrice(LaClass As String, TitreDuProgramme As String)
Dim lHandle As Long
Dim RetVal
'Verifie si la calculatrice est déjà exécutée
lHandle = FindWindow(LaClass, TitreDuProgramme)
If lHandle = 0 Then
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
Exit Sub
End If
'Met la calculatrice en premier plan
lHandle = SetForegroundWindow(lHandle)
End Sub

Merci pour ta réponse qui m'est très utile.
jyb


-------------------------------
Réponse au message :
-------------------------------

Avec ces 2 APIs tu pourras ouvrir un prog (ici la calcul de windows). si elle est déjà ouverte on la met sur le dessus, sinon on l'ouvre.


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

Public Sub OuvreCalculatrice(LaClass As String, TitreDuProgramme As String)
Dim lHandle As Long
Dim RetVal
'Verifie si la calculatrice est déjà exécutée
lHandle = FindWindow(LaClass, TitreDuProgramme)
If lHandle = 0 Then
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
Exit Sub
End If
'Met la calculatrice en premier plan
lHandle = SetForegroundWindow(lHandle)
End Sub