con un hook lo haría yo, te evitas el timer, es mas complejo, pero es lo mejor.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: xman6 en 18 Marzo 2012, 03:01 AM
¿Por qué siempre han de darse argumentos contra las corridas de toros?: Acaso la crueldad ¿no es crueldad siempre, independientemente de si la víctima que la recibe sea humano o animal?"El que quiera ver los toros que los vea, el que no que se vaya"acaso la pedofilia ,los mal tratadores,los animales de laboratorio,las guerras,la violaciones,etc no son actos de crueldad dejad de culparnos de crueles asesinos y miraros al espejo seguro que en algun espacio de tiempo de vuestra vida habeis hecho algo de lo que no estais orgullosos.......
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For Each p As Process In Process.GetProcesses()
Debug.WriteLine(p.Modules(0).FileName)
Next p
Catch p As Exception
Debug.WriteLine(p.ToString)
End Try
End Sub
End Class
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Command1_Click()
For red = 0 To 255
For green = 0 To 255
For blue = 0 To 255
Dim retraso As Long
retraso = 10 + GetTickCount&
While retraso >= GetTickCount&
DoEvents
Wend
Label1.ForeColor = RGB(red, green, blue)
Next blue
Next green
Next red
End Sub