求一个VB里画箭头的函数

来源：百度知道 编辑：UC知道 时间：2024/07/04 23:24:19
最好不是画两条线的那种箭头。要求VB6.0里能用。

下面的语句可以画一个箭头，不过要把窗体的autoredraw属性为true，
Private Sub Form_Load()
Form1.ScaleHeight = 10
Form1.ScaleWidth = 10
Circle (8, 5), 1, , -(180 - 10) * 3.1415926 / 180, -(180 + 10) * 3.1415926 / 180
Line (2, 5)-(8, 5)

End Sub