将军相当于政府什么官:vb 编程 计费器

我想做一个按时间计费的软件,但是现在刚刚开始学vb,好多东西都不懂!
想向大家请教 具体如下
该软件有 ：
四个label
label1为系统当前时间
label2为在线时间
label3为在线提示
label4 为费用
五个command分别为
command1"开始计时"
command2"暂停"
command3"重新计时"
command4"退出"
command5"说明"

要求: 前十分钟不收费 后每分钟收费一角
当按下command1时其label3 显示为"计时中" label2 显示 计时时间——每秒钟更新一次 label4显示其计算的费用

当按下command2时其label3 显示为"计时暂停" command1的 caption变为"继续计时" label2 显示当前按下command2的时候的计时时间

当按下command3时其label3 显示为"重新计时中"command1的 caption变为"计时中"

当按下command5时其label3 显示为"该软件正在开发中"

我自己编了一部分 其程序如下:
Private Sub Command1_Click()
Command1.Enabled = False
Command1.Caption = "计时中"
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Text1.BackColor = &O564123
Text1.Text = "开始计时"
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &O776655
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command1.Caption = "继续计时"
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Text1.BackColor = &O465213
Text1.Text = "计时暂停"
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &O665544
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &O654321
End Sub

Private Sub Command4_Click()
Dim shuoming As String
shuoming = "该软件正在开发之中 如果有什么问题请与我联系 我的QQ：52874597 邮箱：52874597@163.com 2006-7-7 21:12"
Text1.Text = shuoming
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &O550000
End Sub

Private Sub Command5_Click()
Command1.Enabled = True
Command1.Caption = "开始计时"
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Text1.BackColor = &O5012345
Form1.BackColor = &O777770
Text1.Text = ""
End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &O774455
End Sub

Private Sub Form_Load()
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &O556644
End Sub

Private Sub Picture2_Click()

End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Text1_Click()
Form1.BackColor = &O564654
End Sub
谢谢!
如果不方便的话可以通过QQ或邮箱联系
我的QQ:52874597 e-mail:52874597@163.com
再次感谢!