✔ 最佳答案
補充下, 若要用Format , 就要自己處理進位問題
sample here:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = CInt(TextBox1.Text) + 1
Dim sec As Integer
Dim min As Integer
sec = CInt(TextBox1.Text) Mod 60 ' 取得秒數
min = CInt(TextBox1.Text) / 60 ' 取得分鐘
TextBox2.Text = Format(min * 100 + sec, "00:00") ' 轉換成 分:秒 格式
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = 0
End Sub
End Class