Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB, quiero cambiar el tamaño del cuadro de texto en el subformulario activo cuando cambie el tamaño del subformulario activo. ¿Cómo debo hacer esto?

Programación VB, quiero cambiar el tamaño del cuadro de texto en el subformulario activo cuando cambie el tamaño del subformulario activo. ¿Cómo debo hacer esto?

Sub Form_Load() privado

Text1.Tag = Text1.Left / Me.ScaleWidth & "|" & Text1.Top / Me.ScaleHeight & "|" & Text1.Width / Me.ScaleWidth & "|" & Text1.Height / Me.ScaleHeight

End Sub

Sub privado Form_Resize()

Dim k() como cadena

k = Split(Text1.Tage,"|")

Text1.Move Me.ScaleWidth * Val(k(0)), Me.ScaleHeight * Val(k(1 )), Me.ScaleWidth * Val(k(2)), Me.ScaleHeight * Val(k(3))

End Sub