Win shutdown

Código:

Private Sub Form_Load()
Image1.Stretch = True
Image3.Stretch = True
Image5.Stretch = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = True
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = True
Image6.Visible = False
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False
Image2.Visible = True
End Sub

Private Sub Image2_Click()
Dim i As Integer
i = ExitWindowsEx(0, 0&)
End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = False
Image4.Visible = True
End Sub

Private Sub Image4_Click()
Dim i As Integer
i = ExitWindowsEx(1, 0&)
End Sub

Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5.Visible = False
Image6.Visible = True
End Sub

Private Sub Image6_Click()
Dim i As Integer
i = ExitWindowsEx(2, 0&)
End Sub

ahi ta

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Noviembre 19, 2008, 12:09:25