ویژوال بیسیک _آموزش _سورس کد_دانلود

Private Sub cmddraw_Click()
ScaleMode = vbPixels
X1 = Val(Text1.Text)
Y1 = Val(Text2.Text)
x2 = Val(Text3.Text)
y2 = Val(Text4.Text)
Cls
Line (X1, Y1)-(x2, y2)
End Sub