[اسلام الكبابى]

هذا الكود لحل مشكة الزميل ناصر56
هوكود طويل ولكن فيه حل كامل لطلبك

PHP كود :

Dim RATH As Single
Dim RATV As Single
Dim WIDACTform As Single
Dim HIGHACTform As Single
Dim WIDACTtext1 As Single
Dim HIGHACTtext1 As Single
Dim TOPACTtext1 As Single
Dim LEFTACTtext1 As Single


Private Sub Form_Load()
WIDACTform = Form1.Width
HIGHACTform = Form1.Height
WIDACTtext1 = Text1.Width
HIGHACTtext1 = Text1.Height
TOPACTtext1 = Text1.Top
LEFTACTtext1 = Text1.Left

End Sub

Private Sub Form_Resize()
RATH = Form1.Width / WIDACTform
RATV = Form1.Height / HIGHACTform
Text1.Left = RATH * LEFTACTtext1
Text1.Width = RATH * WIDACTtext1
Text1.Top = RATV * TOPACTtext1
Text1.Height = RATV * HIGHACTtext1

End Sub