كود جميل و بسيط للرسم داخل الفورم

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
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0)
ElseIf Button = 2 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(4)
End If
End Sub


للبدء بالرسم حسب احداثيات الماوس عند الضغط على الزر اليساري يبدا الرسم باللون الاسود و عند الضغط على الزراليميني ويكون الرسم باللون الاحمر هذا هو الدرس ويمكنكم تحميل البرنامج أيضاً

المصدر...