Private Function getProcessList() As String
        Dim strbuilder As New StringBuilder
        Dim Proc As System.Diagnostics.Process
        For Each Proc In System.Diagnostics.Process.GetProcesses()
            strbuilder.AppendLine(Proc.ToString.Remove(0, 27).ToLower & " " & (Proc.WorkingSet64 / 1024).ToString("0,000") & " K,")
        Next
        Return strbuilder.ToString()
End Function