'Constantes para las teclas y otros
 
Const KEYEVENTF_KEYUP = &H2
Const VK_LMENU = &HA4   'Alt Izquierdo
Const VK_RMENU = &HA5   'Alt Derecho
Const VK_NUMPAD6 = &H66 '6
Const VK_NUMPAD4 = &H64 '4
Const VK_LSHIFT = &HA0  'Shift Izquierdo
Const VK_NUM7 = &H37    'Numero 7  Barra de división "/"
Const VK_OEM_5 = &HDC   'Barra inversa \
 
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyW" (ByVal wCode As Long, ByVal wMapType As Long) As Long
 
 
 
 
 
Private Sub Command1_Click()
Text1.SetFocus
 
'Enviar @ Arroba
Call keybd_event(VK_LMENU, MapVirtualKey(VK_LMENU, 0), 0, 0)
Call keybd_event(VK_NUMPAD6, MapVirtualKey(VK_NUMPAD6, 0), 0, 0)
Call keybd_event(VK_NUMPAD4, MapVirtualKey(VK_NUMPAD4, 0), 0, 0)
Call keybd_event(VK_NUMPAD6, MapVirtualKey(VK_NUMPAD6, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_NUMPAD4, MapVirtualKey(VK_NUMPAD4, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_LMENU, MapVirtualKey(VK_LMENU, 0), KEYEVENTF_KEYUP, 0)
 
 
'Enviar / Barra de division
Call keybd_event(VK_LSHIFT, MapVirtualKey(VK_LSHIFT, 0), 0, 0)
Call keybd_event(VK_NUM7, MapVirtualKey(VK_NUM7, 0), 0, 0)
Call keybd_event(VK_NUM7, MapVirtualKey(VK_NUM7, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_LSHIFT, MapVirtualKey(VK_LSHIFT, 0), KEYEVENTF_KEYUP, 0)
 
 
'Enviar \ Barra inversa
Call keybd_event(VK_RMENU, MapVirtualKey(VK_RMENU, 0), 0, 0)
Call keybd_event(VK_OEM_5, MapVirtualKey(VK_OEM_5, 0), 0, 0)
Call keybd_event(VK_OEM_5, MapVirtualKey(VK_OEM_5, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_RMENU, MapVirtualKey(VK_RMENU, 0), KEYEVENTF_KEYUP, 0)
 
 
End Sub