deplacer ou ouvrir une application sur le second moniteur

Je cherche à :

ouvrir directement une application ( non un form) sur le second moniteur
ou
ouvrir l’application et la déplacer dans le second moniteur



Merci

je repond à moi même

Code:

---

1 2 3 4 5 6 7 8

Dim hinst As Long hinst = FindWindow(vbNullString, "votre tire ici")   If Not IsNull(hinst) Then Call SetWindowPos(hinst, HWND_NOTOPMOST, VirtualScreen.Monitor(2).Dimensions_Left, VirtualScreen.Monitor(2).Dimensions_Top, VirtualScreen.Monitor(2).Dimensions_Width, VirtualScreen.Monitor(2).Dimensions_Height, SWP_NOSIZE Or SWP_DRAWFRAME) ShowWindow hinst, SW_MAXIMIZE End If

---