到底错在哪里？？？？？？？？？？？
Private Sub Form_Load()
Timer2.Interval = 10000
Timer2.Enabled = False
Dim nextline As String
Dim b As String
On Error GoTo myerror

Open App.Path + "\qqnumber.txt " For Input As #1
Do Until EOF(1)
Line Input #1, nextline
b = b + nextline + Chr(13) + Chr(10)
Loop
Close #1
Text1.Text = b

Exit Sub
myerror:
MsgBox "文件不存在 "
End Sub


我想把
Timer2.Interval = 10000
换
Timer2.Interval =cc

设置成
dim cc as integer
cc=text4.text

cc里面输入数字

但就是说类型不匹配 我快郁闷死！！！！


[解决办法]
cc=text4.text改为cc=val(text4.text)
[解决办法]
cc=text4.text改为cc=val(text4.text)
或text4的value属性中设置为0