Dim tmpProcesses() As Process = Process.GetProcesses()
        Dim tmpProcess As Process
        For Each tmpProcess In tmpProcesses
            Try
                If tmpProcess.MainModule.ModuleName.ToLower = "dcc3.exe" Then
                    AppActivate(tmpProcess.Id)
                End If
            Catch
            End Try
        Next

SendKeys.Send("restart")
SendKeys.Send("{ENTER}")

SendKeys.Send(Keys.Enter)
 
SendKeys.Send(Keys.Return)
 
SendKeys.Send(vbCrLf)
 
SendKeys.Send("restart" & "{ENTER}")
 
SendKeys.Send("{ENTER 2}")
 
SendKeys.Send("{RETURN}")