Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Timer1_Tick(sender, e)
End Sub
Private Sub AddListViewHeader()
Dim LVHeader() As ColumnHeader = {New ColumnHeader With {.Text = "Start Time", .Width = ListView1.Width * 0.33, .TextAlign = HorizontalAlignment.Left},
New ColumnHeader With {.Text = "Current Time", .Width = ListView1.Width * 0.33, .TextAlign = HorizontalAlignment.Center},
New ColumnHeader With {.Text = "Elapsed Time", .Width = -2, .TextAlign = HorizontalAlignment.Center}}
ListView1.Columns.Clear()
ListView1.Columns.AddRange(LVHeader)
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Static Counter As Integer
For Each curLVI As ListViewItem In ListView1.Items
With curLVI
.SubItems(1).Text = Now.ToLongTimeString
.SubItems(2).Text = (DateTime.Parse(.SubItems(1).Text) - DateTime.Parse(.Text)).ToString
End With
Next
Counter += 1
If Counter <= 20 Then
Dim LVI As New ListViewItem
With LVI
.Text = Now.ToLongTimeString
.SubItems.Add(Now.ToLongTimeString)
.SubItems.Add((DateTime.Parse(.SubItems(1).Text) - DateTime.Parse(.Text)).ToString)
End With
ListView1.Items.Add(LVI)
AddListViewHeader()
End If
End Sub
End Class