[AL_BRNS]

السلام عليكم ورحمة الله وبركاته

جرب التالي

كود :

Private Sub Form_Activate()
Call Form_Load
End Sub

Private Sub Form_Load()
Dim startwdth!, Msg$
Msg = "vb6.0"
startwdth = TextWidth(Msg) / 2
Do Until TextWidth(Msg) >= ScaleWidth / 2 - startwdth
Msg = " " & Msg
Loop
Form1.Caption = Msg
End Sub

Private Sub Form_Resize()
Call Form_Load
End Sub

بالتوفيق