CenterCaption

CenterCaption ("Questa e' la Caption")

Sub CenterCaption(text)
Form1.ScaleMode = 4
textwid = TextWidth(text)
forwid = Form1.ScaleWidth
half = forwid / 2
center = Int(half - (textwid / 2))
Rem Adds the required amount of blank spaces

For lop = 1 To half + (center / 2)
a = a + " "
Next lop

Form1.Caption = a & text
Form1.ScaleMode = 1
End Sub