求助！！vb程序
设计一个鼠标画图程序，界面设计，窗体中添加一个picturebox控件，一个combobox组合下拉框、一个通用对话框与两个命令框，以下是我的程序，但是我运行的时候总是提示变量未定义，还望各位大侠帮忙指正哪里出了问题
Option Explicit
Dim x0 As Integer, y0 As Integer
Private Sub Combo1_Click()
Picture1.DrawWidth = Val(Combol.Text)
End Sub
Private Sub Command2_Click()
CommomDialog1.ShowColor
Picture1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Command3_Click()
Picture1.Cls
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Combol.AddItem Str(i + 1), i
Next i
Picture1.AutoRedraw = Ture
Picture1.Cls
Picture1.ForeColor = vbWhite
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If buttom = 1 Then
Picture1.Line (x0, y0)-(X, Y)
End If
x0 = X
y0 = Y
End Sub
使用F8
我不知道是程序错了还是应该对属性值进行改正？
单步调试，看那句出错
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Combol.AddItem Str(i + 1), i
Next i
Picture1.AutoRedraw = Ture
Picture1.Cls
Picture1.ForeColor = vbWhite
End Sub
这个中的Combol.AddItem Str(i + 1), i说是未定义？？？？不知道怎么改
相关问答：
在VB中，如何执行下面的SQL语句
Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001'
比如：
cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber=&# ......
我用InstallShield 10.0制作了一个VB安装包
问题是：
在别的机子上安装后，在运行程序的时候，提示dll找不到，不能调用。
我在制作安装包的时候，将exe文件、ini文件、图形控件（ ......
代码如下：
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.
要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
