OMFG I AM GNA EXPLODE

[Coke]

me and robin ended up with:

Code:

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



n = 2
z = Val(Parse(1))
For X = n To (z + 1)
frmOnline.lstOnline.AddItem Trim(Parse(n))
frmMainGame.txtplayername.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.txtplayername.ListIndex
Do Until rofl = True
If frmMainGame.txtplayername.Text = Q Then
combothing = r
rofl = True
End If
Loop
Next

its not searching through the combobox though, just need the last piece of the jigsaw? xP