用于更新ListBox的定时循环

Question

我想特别循环。

ListBox2.Clear
Dim r As Long
Dim m As Long
Dim wsh As Worksheet
Set wsh = Worksheets("ToolData")
m = wsh.Range("A" & wsh.Rows.Count).End(xlUp).Row
For r = 2 To m
    If wsh.Range("E" & r) = "No" Then
        With Me.ListBox2
            .AddItem wsh.Range("B" & r)
            .Column(1, .ListCount - 1) = wsh.Range("C" & r)
            .Column(2, .ListCount - 1) = wsh.Range("F" & r)
            .Column(3, .ListCount - 1) = wsh.Range("J" & r)
            .Column(4, .ListCount - 1) = wsh.Range("K" & r)
        End With
    End If
Next r

我正在尝试自动更新列表框。如何使用定时循环更新我的listBox？甚至是实时的？