vamos la ...
crie uma pasta na GFX e nomei-e ela de Trans , depois disso você vai adiciona quantas pastas você presisar dentro dela eu coloquei apenas 3
goku ... vegeta ... gohan ...
intao você coloca sua foto la dentro 1 né ...
com o nome de normal ... tente deixa-la como .JPG ...
intao agora vamos para os codigos.

vai na frmMirage faça uma "ImagenBox" não "PictureBox" do tamanho que seja suas imagen ...
nomeia essa ImagenBox para

Código:

picTransNormal

agora proucure por

Código:

If Parse(0) = "itembreak" Then
        ItemDur(Val(Parse(1))).Item = Val(Parse(2))
        ItemDur(Val(Parse(1))).Dur = Val(Parse(3))
        ItemDur(Val(Parse(1))).done = 1
        Exit Sub
    End If

a baixo do "END IF" nao do "End Sub"
coloque ...

Código:

' :::::::::::::::::::::::
    ' :: Class Pic request ::
    ' :::::::::::::::::::::::
    If Parse(0) = "classpic" Then
        If GetPlayerClass(MyIndex) = 1 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Goku\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Vegeta\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Gohan\normal.jpg")
        End If
    End If

certo client terminamos ...
vamos para server agr ...

no final da modServerTCP adicione

Código:

Sub SendClassPicRequest(ByVal Index As Long)
    Dim Packet As String

    Packet = "CLASSPIC" & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

e para terminar o tutorial
proucure por

Código:

' Send the flag so they know they can start doing stuff
    Call SendDataTo(Index, "INGAME" & SEP_CHAR & END_CHAR)

a baixo adicione ...

Código:

'Send pictures of classes
    Call SendClassPicRequest(Index)

Fim~
Testado E Funciona!

Código:

Creditos: Gu1lhe3rm3
Lenon

Sistema muito bom , testei e aprovo

+REP