Private Sub Combo1_Click()
Picture1.DrawStyle = Combo1.ListIndex
End Sub
Private Sub Command1_Click()
Static y As Integer
y = y + 200
Picture1.Line (0, y)-(500, y)
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 6
Combo1.AddItem "x" & i
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024