مشكلة معاية فيsendkeys

السلام عليكم يا شباب معايا هذه المشكلة

process{0}was not found

ايش حلها وهذا هو الكود

Module call_copy
    Public Sub callapp()
        Try
            Dim ProcID As Integer
            ProcID = Shell("N:\Ahead\Nero\nero.exe", AppWinStyle.MaximizedFocus)
            AppActivate(ProcID)
            My.Computer.Keyboard.SendKeys("{DOWN 2}", True)
            My.Computer.Keyboard.SendKeys("{ENTER}", True)
            My.Computer.Keyboard.SendKeys("^v", True)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Module

=======================

وصورة المشكلة ارفقتها