Önce formumuza bir tan Timer1 nesnesi ekliyoruz daha sonra bir d küçük bir menü hazırlıyoruz. Dosya menüsü ve onunu altında mnutime adında menü oluşturup aşağıdaki kodları yazıyorsunuz...
'********************************************************
'* COPY RIGHT 2004-2005 *
'* HAZIRLAYAN.....: Serkan KAYI *
'* OKUL...........: BURDUR TEKNİK LİSESİ *
'* E-MAIL.........: kayiserkan@yaho.com *
'* KONU...........: Menüde Saat Gösterimi *
'********************************************************
Private Sub Form_Load()
Form1.Caption = "Menüde Saat.....!"
End Sub
Private Sub Timer1_Timer()
mnutime.Caption = Time
End Sub