大家帮忙看看，为什么我的程序老是出现Overflow错误，run time error'6'
然后停在程序以下红色语句的地方
Private Sub btnDownload_Click()
Dim i As Integer
Dim Temp(0) As Byte
Dim s As String
Command1_Click
Command2_Click

'If Option1.Value = True Then
' MSComm1.CommPort = 1
'ElseIf Option2.Value = True Then
' MSComm1.CommPort = 2
'End If

MSComm1.PortOpen = True
MSComm1.Settings = "19200,O,8,1"
For i = 0 To UBound(Message) - 1
Temp(0) = Message(i)
If (i Mod 1002) = 0 Then
MSComm1.PortOpen = False
MSComm1.Settings = "19200,O,8,1"
MSComm1.PortOpen = True
MSComm1.Output = Temp
Sleep (700)
MSComm1.PortOpen = False
MSComm1.Settings = "19200,E,8,1"
MSComm1.PortOpen = True
Else
MSComm1.Output = Temp
End If
' If (i Mod 1002) = 0 Then
' Winsock1.SendData Temp
' Sleep (600)
' Else
' Winsock1.SendData Temp '发送数据
' End If

On Error GoTo err
' Winsock1.SendData Temp '发送数据
' MSComm1.Output = Temp
Next
'

MsgBox "发送成功 !", vbOKOnly
Debug.Print "OK!"
MSComm1.PortOpen = False
' For i = UBound(Message) - 1001 - 260 To UBound(Message) - 1001
' Text1.Text = s$
' Winsock1.Close
Exit Sub

err:
MsgBox "请检查屏幕是否已经正确接入网络,IP地址和端口设置是否正确", vbOKOnly
Unload Me
End Sub

把Ubound改成len试试

他的Message从这里看来是个数组.用UBound应该是对的..
不过我由头到尾.没看到Message是哪来的.

前面还有好长的代码，可不可以我上传上来给你们看看？

可以上传上来啊。。。
不过太长的话 不能保证有空看完 看完也不能保证看懂 看懂也不能保证解决问题

所以综合楼上所说..还是不要上传上来好..

希望大家能帮帮我，里面好像有个参数需要改动一下，才能使Page最大达到150，现在只能最大是49，我改为50就出现了上面的内存溢出的错误，谢谢大家！

个么我是没法看了 我机器上是没vb6的

刚才说错了，最大是59，我改为60就出现了上面的内存溢出的错误！

Message?