’用vb6写的，一个Frm_Main窗口一个ListView控件一个Timer控件
’Frm_Main代码
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
  heaphwd = GetProcessHeap() '获取调用过程堆句柄
End Sub

Private Sub Timer1_Timer()
 Dim ret As Boolean
    On Error Resume Next
    ret = InternetGetConnectedState(0, 0)
    If ret Then
        GetNetState
......................