Dim ProcID As Integer
'Kalkylatorn
ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)
'Aktiverar
AppActivate(ProcID)
' Skickar keystrokes
My.Computer.Keyboard.SendKeys("1", True)
My.Computer.Keyboard.SendKeys("+", True)
My.Computer.Keyboard.SendKeys("1", True)
My.Computer.Keyboard.SendKeys("=", True)
' 1+1 = 2