刚编了一个小程序，有很多问题，望各位高手帮助修改一下

刚用vb把一个书上的程序运行了一下，自己也加了点新代码，有很多问题，望各位高手帮助修改一下！ 这是一个自制闹钟的程序，界面上有两个text框，name是txtHour,txtMinute.三个command按钮，name分别是set,stop,end. 程序清单是：'程序中有没有冗余的代码呀？Dim hour, minute '一直不太清楚hour和minute的作用，什么时候需要 'hour = txtHour.Text ' minute = txtMinute.Text 赋值语句？，什么时候不需要？Private Sub cmdCancel_Click() txtHour = "00" txtMinute = "00" hour = txtHour.Text minute = txtMinute.TextEnd SubPrivate Sub cmdEnd_Click() EndEnd SubPrivate Sub cmdSet_Click() '按enter后程序执行有效果，可是界面上的 'set键没显示按下状态,怎么修改？ '为什么command键上的字不能改颜色？？ Dim hh As Integer, mm As Integer hh = txtHour mm = txtMinute Select Case hh Case 0 To 23 hour = txtHour.Text '以下三句的目的是：在写完txthour后， 'txtminute被选中，标识。可是为什么不对？ txtMinute.SetFocus txtMinute.SelStart = 0 txtMinute.SelLength = 2 Case Else i = MsgBox("输入错误", 0 + vbExclamation, "输入时间") txtHour.Text = "00" txtHour.SelStart = 0 txtHour.SelLength = 2 End Select Select Case mm Case 0 To 60 minute = txtMinute.Text Case Else i = MsgBox("输入错误", 0 + vbExclamation, "输入时间") txtMinute.Text = "00" txtMinute.SelStart = 0 txtMinute.SelLength = 2 End SelectEnd SubPrivate Sub Form_Load() '一下四句的目的是：在窗口一打开txthour.text框就是 ‘被标识的，这样写为什么不起作用？ txtHour.SetFocus ‘加这句也起不到效果吗，而且编译时为什么都不对？ txtHour.SelStart = 0 txtMinute.SelLength = 2End SubPrivate Sub tmrClock_Timer() dat.Caption = Date$ lblBlock.Caption = Time$ If Mid$(Time$, 1, 5) = hour + ":" + minute Then i = MsgBox("时间到", 4096 + 64 + vbOKOnly, "提示") '注意按键模式选为：0－应用模式（实践中有用） txtHour = "00" txtMinute = "00" hour = txtHour.Text minute = txtMinute.Text txtHour.SetFocus For i = 1 To 100 '如何又有提示框，又有beep声？ ‘为什么加了提示框后就听不到声了? Beep '如何不戴耳塞也能听到提示声？ Next i End IfEnd Sub