写控件 如何表示小时的01呢？

Question

初次尝试写控件Private Sub ImgUp_Click()
datetext1.SetFocus
datetext2.SetFocus
datetext1.Text = datetext1.Text + 1
If datetext1.Text > 23 Then
'datetext1.Text = Format(datetext1.Text, "hh")
datetext1.Text = "00"
End If
End Sub这里是一个递增的效果。。我想在text 里表示出 01---09之类的数字该如何实现？尝试许久没有头绪，特来请教。。

Answer 1

datetext1.Text = val(datetext1.Text) + 1

Answer 2

datetext1.Text =format$(val(datetext1.Text)+1,"00")

Answer 3

datetext1.Text = right("00" & (val(datetext1.Text) + 1),2)

Answer 4

老大们呀 还是你们厉害··我还写了判断
'Select Case datetext1.Text
'Case 1
'datetext1.Text = "01"
'Case 2
'datetext1.Text = "02"
'Case 3
'datetext1.Text = "03"
'Case 4
'datetext1.Text = "04"
'Case 5
'datetext1.Text = "05"
'Case 6
'datetext1.Text = "06"
'Case 7
'datetext1.Text = "07"
'Case 8
'datetext1.Text = "08"
'Case 9
'datetext1.Text = "09"
'End Select
天哪·· 你们一句就搞定了···