请教如何让vbnet的process像ce那样显示进程的所有模块

img

img

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For Each pro As Process In Process.GetProcesses
        ListBox1.Items.Add(pro.ProcessName)
        ListBox2.Items.Add("&h" & Hex(pro.Id))
    Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    ListBox3.Items.Clear()
    Dim pro As Process = Process.GetProcessById(ListBox2.Items(ListBox1.SelectedIndex))
    For Each promod As ProcessModule In pro.Modules
        ListBox3.Items.Add(promod.ModuleName)
    Next
    ListBox2.SelectedIndex = ListBox1.SelectedIndex
End Sub

    For Each promod As ProcessModule In pro.Modules
        ListBox3.Items.Add(promod.FileName)
    Next