Run -time 9 qndo entra em selecionar char

Praticante Mensagens : 67

a linha q esta dando o erro é essa:

Código:: Msg = Parse(n + 1)

vo mostrar oq tem d linha em volta:

Código:: ' :::::::::::::::::::::::::::
' :: All characters packet ::
' :::::::::::::::::::::::::::
If Parse(0) = "allchars" Then
n = 1

frmSendGetData.Hide
frmChars.Show , frmMainMenu

frmChars.lstChars.Clear

For I = 1 To MAX_CHARS
Name = Parse(n)
Msg = Parse(n + 1)
Level = Val(Parse(n + 2))

If Trim(Name) = vbNullString Then
frmChars.lstChars.AddItem "Lugar Livre"
Else
frmChars.lstChars.AddItem Name & ", level " & Level & " " & Msg
End If

n = n + 3
Next I

Administrador Mensagens : 710

Você não leio as Legras e Necessario 30 mensagens
[Você precisa estar registrado e conectado para ver este link.]

quando completar 30 mesagens eu desbloqueio
e respondo sua pergunta...

_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]

Praticante Mensagens : 67

Close aki ja arrumei.

Administrador Mensagens : 710

Topico Trancado e Resolvido

_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]