The following sections worked previously. Do I need to change anything?
Select Case pMsg.Type
Case GAME_EVENT
Select Case pMsg.Value("event"

Case LOGIN_INFO
28: Set v = pMsg.Struct("properties"

29: If (v.Value("flags"

And &H80&

<> 0 Then
30: n = v.Value("qwordCount"

- 1
31: If (n >= 0) Then
32: Set w = v.Struct("qwords"

33: For i = 0 To n
34: Set x = w.Struct(i)
--------------------------------------------------------------------------------
AgentZ v1.2.0 (2/27/2011 11:51:26 PM)
Error #-2147467262 occured in 'NetEcho_EchoMessage' of class 'NetEchoHandler' at line 34
Specified cast is not valid.
Case IDENTIFY
52: If pMsg.Value("success"

= 1 Then
53:
54: If HUDTarget.GetObject(tmp) Then
55: If pMsg.Value("object"

= tmp.guid Then
56: If pMsg.Value("flags"

And &H100& Then
57: IDHealth = pMsg.Value("health"

58: IDHealthMax = pMsg.Value("healthMax"

59: IDHealthPer = IDHealth / IDHealthMax
60: If IDHealthPer > 1# Then IDHealthPer = 1#
61: Call HUDTarget.TargetHud.UpdateHealth
62: End If
63: IDSpells = ""
64: n = pMsg.Value("spellCount"

- 1
--------------------------------------------------------------------------------
AgentZ v1.2.0 (2/27/2011 11:52:33 PM)
Error #-2147483640 occured in 'NetEcho_EchoMessage' of class 'NetEchoHandler' at line 64
Error HRESULT E_FAIL has been returned from a call to a COM component.
-----signature-----
Zegeger - HG - 246 - Axe
AgentZ -
http://decal.zegeger.net
"Ambition is a poor excuse for not having sense enough to be lazy." - Edgar Bergen
"Imagination is more important then knowledge." - Albert Einstein