Private Sub Form_MouseDown Dim mx, my mx = X my = Y PSet 'başlangıç koordinatını belirlek için nota koy End Sub Private Sub Form_MouseMove Dim mx, my 'sağ tuşa basılı ise çenber ciz If Button = vbRightButton Then Circle , Abs 'sol tuşa basılı ise dikdört ciz If Button = vbLeftButton Then Line - , , B End Sub

... teşkur...