' Hacer un pequeño programa de dibujo:

' Cree un formulario y escriba el siguiente código:

Private DrawNow As Integer

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    If Button = 2 Then Form1.Cls
    DrawNow = -1
    CurrentX = X
    CurrentY = Y
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    If DrawNow Then
        'Se puede jugar con estas dos sentencias
        Line -(X, Y)
        Circle (X, Y), 200
    End If
End Sub

Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    DrawNow = 0
End Sub