Este código lo extraje de Semper widia ao asi qe todos los creditos al programador del server.
Tiene dos combo box uno con la lista de razas y otro con el genero, y tiene un picture box que visualiza las heads. Debes elegir una raza y de qe genero la quieres y puedes elegir la cabeza que quieras no importa lo que seas.
empezamos
SERVIDOR
Buscamos Public Enum eNPCType y debajo del ultimo tipo de npc ponemos Cirujano = x
ej:
- Rem Head
- 'extraido de sw-ao
- Option Base 0
- Option Compare Binary
- Option Explicit
- Private Sub cabeza_Click()
- MiCabeza = Val(cabeza.List(cabeza.listIndex))
- Call DibujarCPJ(MiCabeza)
- End Sub
- Private Sub Command1_Click()
- If MiCabeza <= 0 Then
- MsgBox "Elije una cara de la lista !"
- Exit Sub
- End If
- Call SendData("CAMBIOHEAD" & MiCabeza)
- Unload Me
- End Sub
- Private Sub Label2_Click()
- End Sub
- Private Sub lstGenero_Click()
- Call DameOpciones
- End Sub
- Private Sub lstRaza_Click()
- Call DameOpciones
- End Sub
- Private Sub Command2_Click()
- Unload Me
- End Sub




70![Newbie [4] Newbie [4]](./images/ranks/Rango3.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)


![Aprendiz [1] Aprendiz [1]](./images/ranks/Rango6.gif)

![Oraculo [5] Oraculo [5]](./images/ranks/Rango29.gif)


![Dragon Ancestral [1] Dragon Ancestral [1]](./images/ranks/Rango30.gif)



![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)
