Bueno se que soy nuevo en el foro pero quiero aportar codigos
Efecto que consigue:

Todo el codigo va en el Cliente en el clsDialogs

Buscan:

1. <LI class=li1>Private Type dialog <LI class=li2> textLine() As String <LI class=li1> X As Integer <LI class=li2> Y As Integer <LI class=li1> startTime As Long <LI class=li2> lifeTime As Long <LI class=li1> CharIndex As Integer <LI class=li2> color As Long <LI class=li1> renderable As Boolean
2. end type

Remplazan por:

1. <LI class=li1>Private Type dialog <LI class=li2> textLine() As String <LI class=li1> X As Integer <LI class=li2> Y As Integer <LI class=li1> startTime As Long <LI class=li2> lifeTime As Long <LI class=li1> CharIndex As Integer <LI class=li2> color As Long <LI class=li1> renderable As Boolean <LI class=li2> Sube As Integer 'Efecto (INTEGER!!)
2. End Type

Buscan:

1. <LI class=li1> With dialogs(slot) <LI class=li2> .CharIndex = CharIndex <LI class=li1> .color = color <LI class=li2> .renderable = False <LI class=li1> .startTime = GetTickCount() <LI class=li2> .textLine = FormatChat(chat) <LI class=li1> .lifeTime = MS_ADD_EXTRA + (MS_PER_CHAR * Len(chat))

y abajo ponen:

1. .Sube = 10

Finalmente buscan:

1. <LI class=li1> <LI class=li2> offset = -(usedFont.size + 2) * UBound(.textLine()) <LI class=li1> <LI class=li2> 'Render it <LI class=li1> For j = 0 To UBound(.textLine()) <LI class=li2> Call RenderText(.X, .Y + offset, .textLine(j), .color, usedFont) <LI class=li1> offset = offset + usedFont.size + 5
2. Next j

y arriba ponen:

1. <LI class=li1> If .lifeTime >= 292 Then <LI class=li2> .Sube = .Sube - 1 <LI class=li1> If .Sube > 0 Then .Y = .Y + .Sube
2. End If

chau espero que les guste