vb颜色对话框

我写了一段用作图的代码~但为什么在弹出颜色框那里的代码出错了~我也不明白~我是菜鸟~请各位高手指教

Option Explicit
Dim x0, y0 As Integer

Private Sub Combo1_Click()
Picture1.DrawWidth = Val(Combo1.Text)
End Sub
Private Sub Command1_Click()
commondialog1.showcolor
Picture1.ForeColor = commondialog1.Color
End Sub

Private Sub Command2_Click()
Picture1.Cls
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Combo1.AddItem Str(i + 1), i
Next i
Picture1.AutoRedraw = True
Picture1.Cls
Picture1.ForeColor = vbWhite
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (x0, y0)-(X, Y)
End If
x0 = X: y0 = Y
End Sub

vb 对话框 VB 对话框 VB保存对话框 VB对话框问题 VB对话框的问题 vb 字体对话框设计 vb 保存文件对话框 vb如何显示对话框 vb中两次弹出对话框 VB对话框只输入整数