پارامترهای دستور Line

[IranVB]

سلام دوستان
چهار آرگومان زیر که در دستور Line کاربرد دارند را ممنون میشوم اگر برایم تشریح کنید:
Line (X1, Y1)-(X2, Y2)

با تشکر

[بهروز عباسی]

خط
دستوري براي کشيدن خط و مستطيل بر روي فرم که با توجه به نقاط مختصات رسم مي شود.
Line(X1,Y1)-(X2,Y2) , Color , BF
که پرانتز اول مختصات نقطه شروع و پرانتز دوم مختصات نقطه مقصد است و بين اين دو نقطه يک خط رسم مي شود و Color هم رنگ آن است ، در آخر مي توانيم به تنهايي کلمه B را بياوريم تا يک مستطيل توخالي رسم شود و يا BF را بياوريم تا يک مستطيل توپر رسم شود.
متددي از شيء پرينتر براي کشيدن خط و مستطيل بر روي فرم که با توجه به نقاط مختصات رسم مي شود.
Printer.Line(X1,Y1)-(X2,Y2) , Color , BF
که پرانتز اول مختصات نقطه شروع و پرانتز دوم مختصات نقطه مقصد است و بين اين دو نقطه يک خط رسم مي شود و Color هم رنگ آن است ، در آخر مي توانيم به تنهايي کلمه B را بياوريم تا يک مستطيل توخالي رسم شود و يا BF را بياوريم تا يک مستطيل توپر رسم شود.

[IranVB]

خیلی ممنونم، اگر میشود یک نمونه بزارید
متشکرم

[محسن واژدی]

سلام
دستور زیر را در بررسی کنید،
Private Sub Form_Load()
AutoRedraw = True
ScaleMode = vbPixels
FontTransparent = False
'----------Draw single line
DrawWidth = 1
DrawStyle = 2
Me.Line (50, 50)-(150, 100), vbRed
'print text
CurrentX = 75
CurrentY = 70
ForeColor = vbRed
FontSize = 2
Print "Single Line"
'----------Draw recangle
DrawStyle = 0
DrawWidth = 2
Me.Line (50, 50)-(150, 100), vbBlue, B
'print text
CurrentX = 152
CurrentY = 70
ForeColor = vbBlue
FontSize = 2
Print "Rectangle"
End Sub
موفق باشید