Seta Tutorial - Jogadores Online
Seta Função - Mostrar uma lista com os jogadores online no servidor.
Seta Client ~ Side


na FrmMain Crie 1 PictureBox e uma ListBox

PictureBox: Nome PicOnline
dentro da Pic coloque
ListBox: lstOnline

Agora va no Module " GameLogic " e no fim coloque

Código:

Sub JogadoresOnline()
Dim i As Long
With frmMain
.lstOnline.Clear
       
For i = 1 To Player_HighIndex
If IsPlaying(i) Then
.lstOnline.AddItem GetPlayerName(i) & " - Level:" & GetPlayerLevel(i)
End If
Next
End With
End Sub


Agora Procure Por

Código:

frmMain.lblCharName = GetPlayerName(MyIndex) & " - Level " & GetPlayerLevel(MyIndex)


Abaixo de um enter e Coloque

Código:

JogadoresOnline


Agora Crie um CommandButton
Dentro Coloque

Código:

PicOnline.visible = Not  PicOnline.visible


e Pronto Qualquer Bug Reportem " sistema testado "

Seta Creditos :
Seta Vision Makers - desenvolver o código
Seta Fox - Corrigir os bugs.