vb.net编写任务管理器出现的一些小问题

Imports System.Diagnostics
Public Class Form1
Public Sub onprocessexited(ByVal sender As System.Object, ByVal e As System.EventArgs)
listallprocesses()
End Sub
Private Sub listallprocesses()
Dim processname As String
Dim processid As Int16
Dim threadsnumber As Int16
Dim cputime As TimeSpan

ListView1.Items.Clear()
Dim processes As System.Diagnostics.Process()

processes = System.Diagnostics.Process.GetProcesses()

Dim i As Int16
For i = 0 To processes.Length - 1
processname = processes(i).ProcessName
processid = processes(i).Id
threadsnumber = processes(i).Threads.Count
cputime = processes(i).TotalProcessorTime

Dim subitems(3) As String
subitems(0) = CStr(processname)
subitems(1) = CStr(processID)