Vendo membro da Guild Online

Bom pessoal Mais um Tutorial como ver player da Guild Online
Primeiro Cria uma Form com Nome "frmGuildMembers" eo caption "Membros da Guild Online"
de dois Clica na Form e adiciona isso:

Código:

 Timer1.Enabled = True
lblGuild.Caption = "Guild: " & GetPlayerGuild(MyIndex)

Bom Cria um ListBox com nome "lstMembers"
agora cria um timer ponha em sua propriedade seu interval de "500"
de dois clique e adiciona

Código:

 lstMembers.Clear
lstMembers.AddItem ("-Membros da Guild Online-")
For I = 1 To MAX_PLAYERS
If IsPlaying(I) Then
If GetPlayerGuild(I) = GetPlayerGuild(MyIndex) Then
lstMembers.AddItem (GetPlayerName(I))
End If
End If
Next I

Agora Cria uma label com nome "lblGuild" e caption "Guild:"
Agora crie um CommandButton com qualquer name mais com caption "Sair da Guild"
De dois Clique e adiciona:

Código:

Dim Packet As String
Packet = "GUILDLEAVE" & END_CHAR
Call SendData(Packet)
Timer1.Enabled = False
Unload Me

agora para fechar a form cria uma label com qualquer nome e qualquer caption
de dois clique e adicione:

Código:

 Timer1.Enabled = False
Unload Me

agora para abrir o Form e presiso criar um Botão
de dois clique e adiciona:

Código:

 frmGuildMembers.Visible = True

Pronto Pessoal
Creditos
ΩLuucαs Robεεrto