
26/09/2005, 17:57
|
| | Fecha de Ingreso: abril-2005
Mensajes: 351
Antigüedad: 20 años Puntos: 3 | |
hola puedes provar de esta manera solo que cuando restauras el full screen no se ve
deves agregar la referencia "microsoft shell control and automation"
con f7 minizas y con f6 restauras
pon un timer1
----------------------------
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private oShell As New Shell32.Shell
Private Sub Form_Load()
Timer1.Interval = 20
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(118) = -32767 Then oShell.MinimizeAll
If GetAsyncKeyState(117) = -32767 Then oShell.UndoMinimizeALL
End Sub |