Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mx, my
mx = X
my = Y
PSet (X, Y) 'başlangıç koordinatını belirlek için nota koy

End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim mx, my
'sağ tuşa basılı ise çenber ciz
If Button = vbRightButton Then Circle (mx, my), Abs(mx - X)
'sol tuşa basılı ise dikdört ciz
If Button = vbLeftButton Then Line (mx, my)-(X, Y), , B

End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mx, my
mx = X
my = Y
PSet (X, Y) 'başlangıç koordinatını belirlek için nota koy

End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim mx, my
'sağ tuşa basılı ise çenber ciz
If Button = vbRightButton Then Circle (mx, my), Abs(mx - X)
'sol tuşa basılı ise dikdört ciz
If Button = vbLeftButton Then Line (mx, my)-(X, Y), , B

End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mx, my
mx = X
my = Y
PSet (X, Y) 'başlangıç koordinatını belirlek için nota koy

End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim mx, my
'sağ tuşa basılı ise çenber ciz
If Button = vbRightButton Then Circle (mx, my), Abs(mx - X)
'sol tuşa basılı ise dikdört ciz
If Button = vbLeftButton Then Line (mx, my)-(X, Y), , B

End Sub