先做好几种线型的图片(大小如:宽100,高20),可以用Windows自带的画图板做 然后在窗体上添加一个ImageList控件 , 一个ImageCombo控件 (Microsoft Windows Common Control 6.0) 设置ImageList图像大小为自定义(宽100,高20) 然后添加做好的图片 然后在ImageCombo属性对话框中,设置 图像列表为:ListImage1 然后添加如下代码: Private Sub Form_Load() For i = 1 To 4 '你有几种线型,就到几 ImageCombo1.ComboItems.Add , , , i Next End Sub 运行后,你就可以看到效果了,至于再怎么画,你直接根据相应的选择,更改窗体的DrawStyle属性就能达到画相应的线了