LngC = date2 - date1
                            StrTemp = LngC / 3600 & ": " & (LngC Mod 3600) / 60 & ": " & LngC Mod (3600 * 60)
                            LVA.ListItems(LVA.ListItems.Count).SubItems(1) = StrTemp
                            StrTemp = LngB / 3600 & ": " & (LngB Mod 3600) / 60 & ": " & LngB Mod (3600 * 60)
                            LVA.ListItems(LVA.ListItems.Count).SubItems(2) = StrTemp
                            
                            StrTemp = LngC / 3600 & ": " & (LngC Mod 3600) / 60 & ": " & LngC Mod (3600 * 60)
                            LVA.ListItems(LVA.ListItems.Count).SubItems(3) = StrTemp
                            LVA.ListItems(LVA.ListItems.Count).SubItems(4) = LngA
                            LVA.ListItems(LVA.ListItems.Count).SubItems(5) = LngA / LngB / (3600 * 1000)
                        End If
                        .MoveNext
                    Next
                    Screen.MousePointer = 0
                End With
请问这样的把数据展现到程序面板上吗