Expensive lines of code

Declaration part
Declare Function SetWindowPos Lib ‘user32’ (ByVal h%, ByVal hb%,
ByVal X%, ByVal Y%,
ByVal CX%, ByVal CY%,
ByVal f%) As Integer
Declare Function GetActiveWindow Lib "user32" () As Integer

For reasons of clarity the time loops behind each SendKeys statement haven't been included here. The following code should be defined in the Visual Basic format.

’set the current window to HWND_TOPMOST
test = SetWindowPos(GetActiveWindow, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE Or SWP_NOSIZE)
Dim i As Variant
Dim z As Variant
i = Shell("c:\qw4\qw.exe", 1)  ’start Quicken
AppActivate i
SendKeys "^ü"               ’call up money transfer form
SendKeys "{tab}"
SendKeys "Recipient", True  ’recipient
SendKeys "{tab}"
SendKeys "{tab}", True
SendKeys "123456", True     ’account number
SendKeys "{tab}", True
SendKeys "12345678", True   ’bank sort code
SendKeys "{tab}", True
SendKeys "Testbank", True   ’bank name
SendKeys "{tab}", True
SendKeys "20", True         ’amount
SendKeys "{tab}", True
SendKeys "ActiveX misuse", True  ’comment
SendKeys "{tab}", True
SendKeys "Spende", Tru      ’category
SendKeys "{tab}", True
SendKeys "{tab}", True
SendKeys "{Enter}", True      ’confirm Quicken's various questions
SendKeys "{enter}", True
SendKeys "{esc}"  
SendKeys "%{F4}", True      ’end Quicken