Learn about errors
Posted: Wed Jun 23, 2021 10:59 pm
I'm having trouble with this, why does it keep giving me an error
Code: Select all
Public Sub AddLst()
Dim i As Integer
Dim TxtTmp() As String
FrmMain.LstAdd.ListIndex = 0
Arr = Split(FrmMain.LstAdd.Text, "|")
FrmMain.LstFile.AddItem TxtTmp(0)
FrmMain.LstLink.AddItem TxtTmp(1)
For i = 1 To FrmMain.LstAdd.ListCount - 1
FrmMain.LstAdd.ListIndex = FrmMain.LstAdd.ListIndex + 1
Arr = Split(FrmMain.LstAdd.Text, "|")
FrmMain.LstFile.AddItem TxtTmp(0)
FrmMain.LstLink.AddItem TxtTmp(1)
Next i
End Sub