Dim tx As Single, ty As Single
Private Sub Form_Load()
tx = Text1.Width / Me.Width
ty = Text1.Height / Me.Height
End Sub
Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
Text1.Width = tx * Me.Width
Text1.Height = ty * Me.Height
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024