Dim Procs() as Process = Process.GetProcesses 
    For each Proc as Process in Procs 
        For each ProcMod as Processmodule in Proc.Modules 
            Dim FI() as string = ProcMod.Split("\") 
            Debug.WriteLine(Fi(Fi.Length-1).Split(".")(0)) 
        Next each ' ProcMode 
    Next each ' Proc