I used PostMessage.
Code:
    <DllImport("user32", EntryPoint:="PostMessageA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function PostMessage(ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    End Function
example
Code:
'zomg = flash object
PostMessage(CInt(zomg.Handle), &H100, &H51, 0) ' &H51 = Q
        PostMessage(CInt(zomg.Handle), &H101, &H51, 0)
        PostMessage(CInt(zomg.Handle), &H100, &H31, 0) ' &H31 = 1
        PostMessage(CInt(zomg.Handle), &H101, &H31, 0)