取得正在作用中視窗的程序名稱

'如果frmPOP有開啟,且為修改OR刪除狀態
Dim CurProc As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess()
MsgBox("程序名稱：" & CurProc.ProcessName & vbCrLf & "程序ID：" & CurProc.Id)