Justificar, Centrar Fuentes [DUDA]

[ignorantev1.1]

Hola que tal, tengo una duda sobre las fuentes. Si quiero hacer un proyecto donde utilize el metodo "print" y "currentx, Currenty" para pintar fuentes en algun form, como puedo, por ejemplo, centrar lo que se pintara?. Es decir como saber cuando mide lo que se esta escribiendo?

Código (vb) [Seleccionar] Expandir

Private Sub form_load()
    ScaleMode = 3
    AutoRedraw = True
    CurrentX = ScaleWidth / 2
    CurrentY = ScaleHeight / 2
    Print "Este texto deberia estar centrado!, Automaticamente!"
    CurrentX = 0
    CurrentY = 0
    Print "Esto deberia ajustarse automaticamente a la anchura del form, si se pasa entonces se deberia brincar a una linea nueva! , Automaticamente!"
End Sub


Gracias!

[Dessa]

Hola , probá si asi te sirve

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()

  Me.AutoRedraw = True
  Me.FontBold = True

  Dim variable As String
  variable = "Este texto deberia estar centrado!"

  Me.CurrentY = Me.ScaleHeight / 2 - Me.TextHeight(variable) / 2
  Me.CurrentX = Me.ScaleWidth / 2 - Me.TextWidth(variable) / 2

  Me.Print variable

End Sub




[ignorantev1.1]

Exactamente es lo que buscaba, muchas gracias!