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