Option Explicit
Private Sub Command1_Click()
Label1.Caption = "Hello VB 我爱 VB" '设置标签内容
End Sub
Private Sub Command2_Click()
End '退出程序
End Sub
Private Sub Form_Load()
Me.Caption = "第一个VB应用程序" '设置窗体的标题栏
Label1.Font = "宋体" '设置标签的字体
Label1.FontSize = 32 '设置标签字体的大小
Label1.FontBold = True '设置标签文字为粗体
Command1.Caption = "确定" '设置Command1按钮文字
Command2.Caption = "退出" '设置Command2按钮文字
End Sub