Learn about errors

[Caramon10001]

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

[crap_inhuman]

You didn't set the variable 'FrmMain' in your script