sub form_load()
' /Esto es de ley
   Me.ScaleMode = 3 'Trabajaremos con Pixeles
   Me.Autoredraw = True 'Activaremos repintado automatico
   Me.Show 'Mostraremos el formulario
'/
 
   Me.Cls ' Limpiar pantalla
 
   Me.Line (0,0)-(100,100),Color  ' Dibujamos una linea desde (0,0) hasta (100,100)
   Me.Cls ' Limpiar Pantalla
   Me.Line (0,0)-(100,100),Color, B 'Dibujamos un cuadrado en (0,0) que mida 100 Px de ancho X 100 de alto
   Me.Cls ' Limpiar Pantalla
   Me.Line (0,0)-(100,100),Color, BF '    ''        ''           ''    con relleno ''              '' 
   Me.Cls ' Limpiar Pantalla
end sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Msgbox "Hiciste Click en el punto (" & X & ", " & Y & ")"
 
End Sub