pressing function keys in DOS via vb6

[Jim Davis]

ohh.. heres a solution =>

(module)

Option Explicit
 
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Public Enum VirtualKeys
VK_F1 = &H70
VK_F2 = &H71
VK_ENTER = &HD
VK_INSERT = &H2D
VK_ESCAPE = &H1B
VK_END = &H23
End Enum
 
Private Const KEYEVENTF_KEYUP = &H2
 
Public mvarDestination As Long
 
Public Sub SendA_F_Key(ByVal sKeys As VirtualKeys)
 
   Dim nShiftScan    As Integer
   nShiftScan = MapVirtualKey(sKeys, 0)
   AppActivate (mvarDestination)
   keybd_event sKeys, nShiftScan, 0, 0
   keybd_event sKeys, nShiftScan, KEYEVENTF_KEYUP, 0
End Sub

(call dos app)

mvarDestination = Shell(AnyApp, vbMaximizedFocus)

via this code i can send a lot of keys like INSERT, F1...etc.etc,
and now, i cant figure out how can i send the key 'ENTER' if the DOS app is in fullscreen mode... (i can only in windowed mode...)
i have tried a lot of variations like the Clipboard Paster code(Sendkey "% ep"), but nothing happened..

its tricky...