minimizar to'

Poncho-
Creo que quieres algo asi, verdad? El codigo abajo
le he escrito hace bastantes anos con Win95, y acabo de
probarlo con WinXP- funciona todavia.
Joe
-Corte aqui--
Option Explicit
'--
Private Const WM_COMMAND = &H111
Private Const MIN_ALL = 419
Private Const MIN_ALL_UNDO = 416
'
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
'
Private Sub Command1_Click()
Dim lRetVal As Long
lRetVal = FindWindow("Shell_TrayWnd", vbNullString)
lRetVal = PostMessage(lRetVal, WM_COMMAND, MIN_ALL, 0&)
End Sub

Private Sub Command2_Click()
Dim lRetVal As Long
lRetVal = FindWindow("Shell_TrayWnd", vbNullString)
lRetVal = PostMessage(lRetVal, WM_COMMAND, MIN_ALL_UNDO, 0&)
End Sub
**********************************************************
Joe LeVasseur
Microsoft Developer MVP www.yankee-clipper.net
Pluralitas non est ponenda sine neccesitate
**********************************************************


"PONCHO" wrote in message
news:008801c35856$b579b570$

ola, cual es el codigo para cuando das a un boton s
minimizen todas las venmtanas de windows activas en ese
momento?