Eu procurei esse tutorial e não encontrei, então fiz ele e resolvi postar.

no servidor na aba Players crie um label e um HScroll com os nomes de
HScroll: scrlGmlvl
com o máximo 4 e mínimo 0
Label: lblGmlvl

dê um duplo clique no Scroll e adicione

Código:

 Dim Name As String

    Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

            Select Case scrlAcesso
Case 0
Call SetPlayerAccess(FindPlayer(Name), 0)

Case 1
Call SetPlayerAccess(FindPlayer(Name), 1)
Case 2
Call SetPlayerAccess(FindPlayer(Name), 2)
Case 3
Call SetPlayerAccess(FindPlayer(Name), 3)
Case 4
Call SetPlayerAccess(FindPlayer(Name), 4)

End Select

Call SendPlayerData(FindPlayer(Name))
lblGmlvl.Caption = "GM level: " & scrlAcesso