Compiled error : Method or data member not found Public Sub DrawChat() ' If debug mode, handle error then exit out If App.LogMode = 1 And Options.Debug = 1 Then On Error GoTo ErrorHandler Dim i As Integer For i = 1 To 6 RenderText Font_Default, Chat(i).text, frmMain.picForm.Left + 5, (frmMain.picForm.Top + 555) - (i * 20), White Next Exit Sub ' Error handler ErrorHandler: HandleError "DrawChat", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear End Sub 'Evilbunnie's DrawChat system Public Sub ReOrderChat(ByVal nText As String, nColor As Long) Dim i As Integer For i = 19 To 1 Step -1 Chat(i + 1).text = Chat(i).text Chat(i + 1).Color = Chat(i).Color Next Chat(1).text = nText Chat(1).colour = nColor End Sub