Gracias a todos por las respuestas, recuerdo que lo prioritario es que sea facil crear partida para jugar online.
Voy a echar un vistazo a estos

DoEvents!

Ook, gracias Casti lo mirare
Alguno más que me aconsejeis y cumpla esos requisitos?

DoEvents!

Pido consejo:

Estoy buscando un shooter online en primera persona que sea fácil de instalar, que no requiera un PC muy potente, y que sea sencillo crear una partida online para jugar con mis amigos.

Gracias

Descargalo y compruebalo tú mismo....
 
Si, claro que se pueden seleccionar, lo hace todo con GDI.
Este SRC ya me lo paso Black hace tiempo para que le hechara un vistazo.
Y el resultado es genial
Ahora a buscar bugs 

DoEvents!

Buena Karcrack, esta muy claro de entender.
No te gusta más así?

Public Function DecToRoman(ByVal lNum As Long) As String
    DecToRoman = Choose(((lNum Mod 10) / 1) + 1, "", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX")
    lNum = lNum - (lNum Mod 10)
    If lNum Then
        DecToRoman = Choose(((lNum Mod 100) / 10) + 1, "", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC") & DecToRoman
        lNum = lNum - (lNum Mod 100)
        If lNum Then
            DecToRoman = String$((lNum \ 1000), "M") & Choose(((lNum Mod 1000) / 100) + 1, "", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM") & DecToRoman
        End If
    End If
End Function

De esta manera si es el 7 o el 46 (por ej) no sigue comprobando.
Por cierto y RomanToDec() que?

DoEvents!

Aqui está, bug reparados y código optimizado 

DoEvents!

@karmany
En eso estoy trabajando en un rato pongo el SRC optimizado! 

DoEvents!

Pues creo que esta vez te equivocas...

@79137913
Eso no será sencillo, para ello puedes buscar algun UC (despues busco y posteo si encuentro algo), o quizas se pueda hacer algo con otro control; un LV o un MSFLGRND (no lo se ).
Tengo aun que mejorar esta clase que tiene algun bug por ahi... Despues actualizo.

DoEvents!

Tambien se me ocurrio esta forma de centrar el texto sin Apis y sin agregar controles adicionales, aunque es un poco fea (pero funciona ) :

En un módulo:

Option Explicit
'=========================================================
' º Function : AlignCenterLBItem
' º Author   : Mr.Frog ©
' º Mail     : vbpsyke1@mixmail.com
' º Greets   : LeandroA
' º Recommended Websites :
'       http://visual-coders.com.ar
'       http://InfrAngeluX.Sytes.Net
'       http://twitter.com/#!/PsYkE1
'=========================================================
 
Public Function AlignCenterLBItem(myListbox As ListBox, ByVal sItem As String) As String
Dim lItemLen                                           As Long
    If Not (myListbox Is Nothing) Then
        lItemLen = myListbox.Parent.TextWidth(sItem)
        If lItemLen < myListbox.Width Then
            AlignCenterLBItem = Space$(Abs(Int((Int(myListbox.Width - lItemLen) / 2) / myListbox.Parent.TextWidth(Space$(1)) - 1.5))) & sItem
        End If
    End If
End Function

Ejemplo:

Private Sub Form_Load()
    List1.AddItem AlignCenterLBItem(List1, "Amo elhacker.net")
End Sub

Es lo más corto que he visto... 

DoEvents!

Gracias!

Ya la puse, y ya avise a karmany por MP para que le heche un vistazo! 

DoEvents!