Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 Private Const GW_CHILD =  5 
 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 Private Const WM_CHAR = &H102
Const WM_KEYDOWN = &H100
Const VK_DELETE = &H2E
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim rs&
Dim res&
 rs& = FindWindow(vbNullString, "Rappelz")
 res& = GetWindow(rs&, GW_CHILD)
Call SendMessage(res&, WM_KEYDOWN, VK_DELETE,  0 &)
 'Call = SendMessage(res&, &HF5, 0, 0)
 'Call SendMessage(res&, WM_CHAR, vbKey1, 0&)
End Sub