vısualbasıcte mous ile cizim yapmak

[suatozkul]

bu programı calıstırdıgınızda
(1,1),(1,2),(1,3)
(2,1),(2,2),(2,3)
(3,1),(3,2),(3,3)
noktaları görünecektir.Ornegın mous ıle tıkladıgımızda cızecegımız cızgının ılk noktası olarak(2,1) rı yakalasın ve mous ile tıkladıgımızda da cızgının son noktası olarakta (3,2) noktasını yakalayarak cızım ıslemını bıtırsın. Bu konuda cok acıl yardımlarınızı beklıyorum.tesekkur ederım
-----------------------------------------------------------------------------------------------------Dim xx, yy, sayac, d,I,F as ınteger
Dim xx, yy
Dim B(3), C(3)
Private Sub Form_Load()

Form1.BackColor = 0
Me.AutoRedraw = True
Line1.BorderColor = &HFFFF&
Form1.ForeColor = &HFFFF&
Form1.ScaleMode = 4


B(1) = 10: B(2) = 20: B(3) = 30
C(1) = 10: C(2) = 20: C(3) = 30

For I = 1 To 3
Me.Line (0, C(I))-(7000, C(I))
Me.Line (B(I), 0)-(B(I), 7000)
Next I

For I = 1 To 3
For F = 1 To 3
Me.PSet (B(I), C(F)): Print F; I
Me.Circle (B(I), C(F)), 1

Next F
Next I

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


If Button = 1 Then
d = d + 1
Me.MousePointer = 2 ' MOUSE + OLUYOR
If d >= 2 Then
If sayac = 0 Then xx = X: yy = Y: sayac = Val(sayac) + 1: Exit Sub
sayac = Val(sayac) + 1

Me.Line (X, Y)-(xx, yy)
xx = X: yy = Y
End If
End If

If Button = 2 Then
Me.MousePointer = 1 'MOUSE OK OLUYOR
sayac = 0
d = 0
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If d > 1 Then
Line1.Visible = True
Else
Line1.Visible = False
End If
Me.Line1.X1 = xx
Me.Line1.X2 = X
Me.Line1.Y1 = yy
Me.Line1.Y2 = Y
Label1.Caption = xx
Label2.Caption = yy
Label3.Caption = X
Label4.Caption = Y
End Sub