Private Sub form_load()
Show
Label1.AutoSize = True
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
Command1.Caption = "放大"
End Sub
Private Sub command1_click()
Label1.FontSize = Val(Label1.FontSize) * 3
Label1.Caption = Str(Time())
Label1.Top = Val(Form1.Height) / 2 - Val(Label1.Height) / 2
Label1.Left = Val(Form1.Width) / 2 - Val(Label1.Width) / 2
End Sub
Label1.Caption = Now
now就是当前系统时间
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024