OMFG I AM GNA EXPLODE

[Coke]

Alright dave i think this is one for you or Verrigan xD

Code:

' ::::::::::::::::::::::::::
' :: Get Online List ::
' ::::::::::::::::::::::::::
If LCase(Parse(0)) = "onlinelist" Then
Q = frmMainGame.cmbPlayerName.Text
frmOnline.lstOnline.Clear
frmMainGame.cmbPlayerName.Clear
frmMainGame.Refresh

n = 2
z = Val(Parse(1))
For X = n To (z + 1)
frmOnline.lstOnline.AddItem Trim(Parse(n))
frmMainGame.cmbPlayerName.AddItem Trim(Parse(n))
frmMainGame.Refresh
n = n + 2
Next X

Dim r, combothing As Long
Dim rofl As Boolean
For r = 1 To frmMainGame.cmbPlayerName.ListCount
Do Until rofl = True Or r = frmMainGame.cmbPlayerName.ListCount
frmMainGame.cmbPlayerName.ListIndex = frmMainGame.cmbPlayerName.ListIndex + 1
If frmMainGame.cmbPlayerName.Text = Q Then
combothing = r
rofl = True
End If
DoEvents
Loop
Next

When players log-in it keeps your pm buddy selected, but when they logout it doesent...

o.o