7,765
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Text1_Change()
With Text1
.Move .Left, .Top, Me.TextWidth(.Text) + 120, Me.TextHeight(.Text) + 120
End With
End Sub
Private Sub Text1_Change()
Label1.AutoSize = True
Label1.Caption = Text1.Text
Text1.Width = Label1.Width + 120
Text1.Height = Label1.Height + 120
End Sub