设计简单的VB程序

 1 Option Explicit
 2 
 3 Private Sub Command1_Click()
 4   Text2.Text = ""
 5   Text1.Text = "How are you!"
 6 End Sub
 7 
 8 
 9 Private Sub Command2_Click()
10  Text1.Text = ""
11  Text2.Text = "I am Fine!"
12 End Sub

Option Explicit


Private Sub Timer1_Timer()

Label1.Caption = Time
End Sub

Option Explicit

Private Sub HScroll1_Change()
  Label1.Caption = HScroll1.Value
  
  Text1.FontSize = HScroll1.Value
End Sub