ooooooo

آقا الکی الکی یه چیزی کشف کردم که واقعآ دلم نیومد نذارمش.

این کد رو امتحان کنید و نتیجه ش رو ببینید

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y_ As Single)
If  Button = 1 Then Picture1.Line (X, Y)-(X + X, Y + Y)
End Sub