02-02-14, 09:05 PM
02-02-14, 09:48 PM
يالغالي
ماافي غير انك تعمل مسااافة الى المكان اى تبي النص يكون فيه
ماافي غير انك تعمل مسااافة الى المكان اى تبي النص يكون فيه
03-02-14, 01:05 AM
السلام عليكم ورحمة الله وبركاته
جرب التالي
بالتوفيق
جرب التالي
كود :
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بالتوفيق