VB6 txtchat.txt error

[avarthar]

Hello, could you help me to fix this error?

> Public Sub AddText(ByVal Msg As String, ByVal color As Integer)
>
> Dim s As String
>
>     ' If debug mode, handle error then exit out
>     If Options.Debug = 1 Then On Error GoTo errorhandler
>
>     s = vbNewLine & Msg
>     frmMain.txtChat.SelStart = Len(frmMain.txtChat.**text**)
>     frmMain.txtChat.SelColor = QBColor(color)
>     frmMain.txtChat.SelText = s
>     frmMain.txtChat.SelStart = Len(frmMain.txtChat.text) - 1
>
>     ' Error handler
>     Exit Sub
> errorhandler:
>     HandleError "AddText", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
>     Err.Clear
>     Exit Sub
> End Sub

I tried to install the vb6cli thing and it didn't worked

[avarthar]

Finally found the problem!

> Posted 22 October 2013 - 08:47 AM
>
> Got the same Problem.
>
> If i check Microsoft Common Controls (SP6) it tells me Object bla bla not registered >.<
>
> EDIT–--
>
> If you got an .text error on client side check the txtchat maybe its changed to an picturebox
>
> and add the richtext component ;-)
>
> Damn IE 10

Do anybody could help me to fix it?

I can't see the richtext thing…

[Domino_]

runtimes installed, using win7?

[avarthar]

yes, it's now fixed. I had to remove IE 10. 

But now I would like to know how to fix the Error "9" when executing my client.

I modified the constants in modConstants.bas.

[avarthar]

nvm! everything is working fine now.. Had put a too high array.