本文所述為用VB製作倒數程序用到的一個Module類代碼，是基於控制台的倒數計時程序，可供VB初學者或VB愛好者參考學習，當然讀者也可以將其拷貝代碼到VB工程裡面直接使用，不過需要自己創建相關的程式碼，對於初學者來說，也是很容易看懂的一段程式碼。
具體功能代碼如下：
Module Module1 Sub Main() Dim a As Date Dim h, m, s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long Console.WriteLine("本程序為倒數程序，請分部輸入需要倒數的小時數、分鐘數、秒數") Console.WriteLine("請輸入計時的小時數（大於等於0的整數）：") h = Console.ReadLine() Console.WriteLine("請輸入計時的總分鐘數（大於等於0且小於60的整數）：") m = Console.ReadLine() Console.WriteLine("請輸入計時的秒數（大於等於0的且小於60的整數）：") s = Console.ReadLine() Console.WriteLine("目前系統時間為：{0}", h) a = Now() Console.WriteLine("目前系統時間為：{0}", a) Console.WriteLine(" ") Console.WriteLine(" **************倒數計時開始* **************** ") Console.WriteLine(" **************倒數計時開始*********** ****** ") Console.WriteLine(" **************倒數計時開始***************** ") Console. WriteLine(" **************倒數計時開始***************** ") z = 0 x = 60 For i = 0 To h * 3600 + m * 60 + s For n = 0 To 6000000 For y = 0 To 25 z = z + 1 Next Next If (h <= 0) And (m <= 0) And (s <= 0) Then Exit For If s > 0 Then s = s - 1 Console.WriteLine(" 剩餘：{0}小時{1}分{2}秒", h, m, s) If (h <= 0) And (m <= 0) And (s < = 0) Then Console.WriteLine("倒數計時完畢，隨意輸入字元將退出程式：") Exit For End If End If If s = 0 Then If m > 0 Then m = m - 1 s = 59 Console.WriteLine(" 剩餘：{0}小時{1}分{2}秒", h, m, s) End If If m = 0 And h > 0 And s = 0 Then h = h - 1 m = 59 s = 59 Console.WriteLine(" 剩餘：{0}小時{1}分{2}秒", h, m, s) If (h <= 0) And (m <= 0) And (s <= 0) Then Console.WriteLine("倒數計時完畢，隨意輸入字元將退出程式：") Exit For End If End If End If Next Console. Read() End Sub End Module