[asemshahen5]

موضوع جميل جعله الله في ميزان حسناتك .

PHP كود :

   Dim mythr As Threading.Thread
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mythr = New Threading.Thread(AddressOf MyTimerSub)
        mythr.Start()
    End Sub
    Function MyTimerSub()
        Do
            Threading.Thread.Sleep(1000)
            Lbl_Time.Text = Now.ToString("hh:mm:ss tt")
        Loop
    End Function
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        mythr.Abort()
    End Sub 


ساعة بدون اداة التايمر .