Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long Private Const GW_HWNDNEXT = &H2 Private Const GW_HWNDPREV = &H3 Private Sub Form_Load() MsgBox "SUIVANT : " & GetNextWindow(Me.hwnd, GW_HWNDNEXT) & vbCrLf & _ "PRECEDENT : " & GetNextWindow(Me.hwnd, GW_HWNDPREV) End Sub