Membuat Form Dapat Dicoret-coret dengan Mouse pada VB 6.0

Program di bawah ini adalah contoh penggunaan event pada mouse dan penggunaan perintah untuk membuat garis yaitu Line().

Pada form tambahkan Command button setelah itu ketik program berikut :

Private Sub Command1_Click()
Form1.Cls
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'jika tombol kiri diklik
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y)
End If
End Sub

Gampang to??? diambil dari http://visualbasic.freetutes.com tanpa ijin (waduh!!! eh buat belajar ga pa pa to???)