amusant, il n'y a plus qu'à le minimiser Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Command1_Click() Dim Hwnd As Long Shell "explorer.exe", vbNormalFocus Do While Hwnd = 0 DoEvents Hwnd = FindWindow(vbNullString, "Mes Documents") Loop SetParent Hwnd, Me.Hwnd End Sub
Daniel
|