VB程序中如何很直观地显示系统性能的状态？

Question

在VB6中如何把系统性能(包括内存和CPU的占用率)的状态在程序界面上直观、实时地显示出来，就像WIN2000或WinXP属性里面的“性能”页上那样Cool的波峰图一样显示。是否可以借助那些第三方控件或调用API函数，或有其它更好的方法来实现？
如哪位能人清楚的话烦请告知！谢谢！

Answer 1

这个好说,可以不用第三方控件,你只要用API函数得到CPU的使用率,然后利用画直线的函数在图象框里画出来就行了,线的颜色和间隔,你可以自己来设置.就这么简单!嘿嘿

Answer 2

Project---〉Components--〉选择System Monitor Control (Sysmon.ocx)控件，确定后将控件
SystemMonitor拖放到Form上直接用就行。

Answer 3

TO: winehero(编程人生)
  SystemMonitor如何可以设置成运行程序后就直接可以把内存和CPU的使用状态用曲线图实时显示出来呢? 我好像在它的属性里没有找到那些设置,每次都是在运行过程中单击右键,选择"添加计数器",然后再选需要哪些的数据......很麻烦. 这不是我想要的哪种效果.
是否我的方法不对,能否把你的方法具体说清楚点吗?

Answer 4

'难道非得给你写出代码你才给分？！这么简单的两行代码就不会写吗？
'你认为很麻烦的那个框是调用SystemMonitor1.BrowseCounters产生的
'当然你也可以往Counters中添加CounterItem，如下所示仅仅是添加了
'Processor Time和内存两项指标，Add的参数参照BrowseCounters打开的那个属性框吧
'其实所有的参数均可以定制，如果你不想要他所有界面你也可以将所有界面重写Option ExplicitPrivate Sub Command1_Click()
    'SystemMonitor1.BrowseCounters
    SystemMonitor1.Counters.Add "\Processor(0)\% Processor Time"
    SystemMonitor1.Counters.Add "\Memory\Pages/sec"
End Sub