This will show 0 at midnight.

VB Code:
  1. Option Explicit

  2.  
  3. Private Sub Form_Load()

  4.  the lblTime.Caption = Hour(Now) Mod 12

  5. End Sub