Question

vb错误求助:下标越界是怎么一回事啊?

这是产生错误的那段代码,这是一段文件发送的代码.请各位大侠帮忙.

Private Sub cmdSend_Click()

With ftSend(MyID)
.Comment = txtComments
.FileSize = CDbl(FileLen(txtFile))
.FileToSend = txtFile
.frmSend.InitTransfer MyID
End With
SendClicked = True
Unload Me
End Sub
部分模块代码:
Public Type T_FILE_TRANSFER_SEND
Comment As String * 200
To As String
FileToSend As String
FileSize As Double
frmChoose As New frmFileChoose
frmSend As New frmSending
End Type

Public ftSend() As T_FILE_TRANSFER_SEND
Dim SendCount As Long
Public Function sendfile(ByVal Destination As String)
ReDim Preserve ftSend(0 To SendCount)
ftSend(SendCount).To = Destination
ftSend(SendCount).frmChoose.ChooseSend SendCount
SendCount = SendCount + 1
End Function

Answer 1

ftSend(MyID)是一个数组的元素吧，应该是你在编写的时候没有注意，MyID的值超出你所定义的数组的大小了。如果其他代码里有MyID=MyID+1的话，建议你好好看看这里。
按F8逐步调试一下吧，看看变量的取值。

Answer 2

调试一下你的MyID变量的值，你这样短的代码是看不出毛病的