Compile error help:

[genusis]

Thankx Fixed It know this is throwing an error:

Code:

Public Sub ElementEditorInit()
    frmElementEditor.txtName.Text = Trim(Element(EditorIndex - 1).Name)
    frmElementEditor.scrlStrong.Value = Element(EditorIndex - 1).Strong
    frmElementEditor.scrlWeak.Value = Element(EditorIndex - 1).Weak
    frmElementEditor.Show vbModal
End Sub

frmElementEditor.txtName.Text = Trim(Element(EditorIndex - 1).Name)

frmElementEditor.txtName.Text = thats what it says.