[Shell]

Buenas!.

Espero que los reyes hayan sido muy buenos con ustedes. Bueno, eso será si se han portado bien.

Este ejemplo muestra el color que nuestro cursor apunta sobre el escritorio.
Es un ejemplo para hacer otro.

GAMBAS

Private atimer As Timer
 
Public Sub Form_Open()
 
  With atimer = New Timer As "Tiempo"
    .Delay = 50
    .Start
  End With
 
End
 
 
Public Sub Tiempo_Timer()
 
  Dim unaimagen As Image
 
  lblX.Text = CStr(Mouse.ScreenX)
  lblY.Text = CStr(Mouse.screeny)
 
  unaimagen = Desktop.Screenshot(Mouse.ScreenX, Mouse.ScreenY, 1, 1).Image
  With PictureBox1
    .Mode = PictureBox.Fill
    .Picture = unaimagen.Picture
  End With
 
End
 
 
Public Sub Form_KeyPress()
 
  'No existen bordes en el formulario, la tecla escape aborta la ejecución
  If Key.code = Key.Esc Then Me.Close()
 
End

Mañana continuaré leyendo los mensajes que me quedan por leer. Ahora ya es un poco tarde. Buenas noches!.

Saludos