Private Sub Form_Load()
Label1.Caption = Left(Text1, 11)
Label2.Caption = Mid(Text1, 12, 6)
Label3.Caption = Right(Text1, 5)
Label1.FontSize = Text1.FontSize
Label2.FontSize = Text1.FontSize
Label3.FontSize = Text1.FontSize
End Sub
我没有设置字体，你自己在属性窗口设置一下，
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024