dradana2003
12 de Abril del 2006

COn este codigo se puede realizar un texto en 3D

Dim I As Integer
Dim X As Integer
Dim Y As Integer

Me.ForeColor = &H0
X = Me.CurrentX
Y = Me.CurrentY

Me.FontSize = 25

For I = 1 To 70
Print "ESTE PROGRAMA CORRE SOBRE UN SERVIDOR DE BASES DE DATOS"
X = X + 1
Y = Y + 1
Me.CurrentX = X
Me.CurrentY = Y
Next I

Me.ForeColor = &HFFFFFF
Print "ESTE PROGRAMA CORRE SOBRE UN SERVIDOR DE BASES DE DATOS"

pero resulta que siempre sale a partir de la parte superior isquierda

y quireo modificar eso que me salga en el medio del formulario

Saludos

mvallejos
12 de Abril del 2006

Tienes que setearle valores iniciales a las propiedades CurrentX y CurrentY, en el código arrancan desde 0, por eso te sale arriba a la izquierda.
Podés valerte además,de los métodos Textheight y TextWidth para centrar el texto en el form.

Saludos