Private Sub Simplificar(ByRef Numerador As Long, ByRef Denominador As Long)
Dim Divisor As Long
  Divisor = 2
  Do While (Divisor <= Numerador) And (Divisor <= Denominador)
    If (Numerador Mod Divisor = 0) And (Denominador Mod Divisor = 0) Then
      Numerador = Numerador / Divisor
      Denominador = Denominador / Divisor
    Else
      Divisor = Divisor + 1
    End If
  Loop
End Sub

CREATE TABLE prueba(
 id INTEGER AUTO_INCREMENT PRIMARY KEY,
 nombre VARCHAR(40)
 );

Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Type PointAPI
        X As Long
        Y As Long
End Type

Private Sub timer1_Timer()
Dim DeskTopWindow As Long
Dim CurPos As PointAPI, ScreenPixel As Long
  Call GetCursorPos(CurPos)
  ScreenPixel = GetPixel(GetDC(0), CurPos.X, CurPos.Y)
  Label1 = ScreenPixel
End Sub