Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick ListBox1.TopIndex = ListBox1.Items.Add(Now.ToString("HH:mm:ss.ffff")) End Sub