DEFINIR UNE FORM EN FORM D OUTIL

'déclarations dans un module (ou la même form qui suit mais en changeant les public par des private)
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewLong As Long) As Long
Public Const GWW_HWNDPARENT = (-8)


'dans la form qui deviendra la form outil
'pour info parent représente la form principale
Dim OriginalParenthWnd As Long
Sub Form_Load()
   OriginalParenthWnd = SetWindowLong(Me.hwnd, GWW_HWNDPARENT, Parent.hwnd)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim r As Long
   'Rendre le parent original
    r = SetWindowLong(Me.hwnd, GWW_HWNDPARENT, OriginalParenthWnd)
End Sub