I edited the prog a little to make it also use the "Stop Event" command if arrow keys are pressed with Ctrl otherwise the arrow keys were also changing button focus. using "Stop Event" stops the default key press things happening if you are doing other things

If Key.Control And [Key.Up, Key.Down, Key.Left, Key.Right].Exist(Key.Code) Then Moveform(Key.Code) Stop Event Endifand condensed it to run another function..
Public Sub Moveform(KeyCode As Integer) Select KeyCode Case Key.Up Dec Me.Window.Top Case Key.Down Inc Me.Window.Top Case Key.Left Dec Me.Window.Left Case Key.Right Inc Me.Window.Left End Select End
Ignore the fact i used Me.Window.Top and not Me.Top I was experimenting to see if it made a difference.