Нужна помощь по VB6

Мне нужна помощь по visual basic 6. Дело в том, что я только недавно начал изучать этот язык и вообще программирование :), вот, и у меня есть код (Название окна и hex код не написал, секрет):

Private Sub Command1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "Название окна")
If (hwnd = 0) Then
MsgBox "Окно не найдено!", vbOKOnly + vbExclamation, "Ошибка!"
Exit Sub
End If
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_VM_WRITE, False, pid)
If (pHandle = 0) Then
MsgBox "Couldn't get a process handle due to syserror: " & CStr(Err.LastDllError)
Exit Sub
End If
WriteProcessMemory pHandle, &HнекийАдрес, "Beans", 5, 0&
CloseHandle hProcess
End Sub
Private Sub ReadTimer_Timer()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim str As String * 20
hwnd = FindWindow(vbNullString, "Название окна")
If (hwnd = 0) Then Exit Sub
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_VM_READ, False, pid)
If (pHandle = 0) Then Exit Sub
ReadProcessMemory pHandle, &HнекийАдресс, str, 20, 0&
txtDisplay = str
CloseHandle hProcess
End Sub

И еще вот этот:

Public Const TOKEN_QUERY As Long = &H8&
Public Const TOKEN_ADJUST_PRIVILEGES As Long = &H20&
Public Const SE_PRIVILEGE_ENABLED As Long = &H2
Public Const SE_DEBUG_NAME As String = "SeDebugPrivilege"

Public Type LUID
lowpart As Long
highpart As Long
End Type

Public Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type

Public Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges As LUID_AND_ATTRIBUTES
End Type

Public Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPriv As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

Public Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As Any, ByVal lpName As String, lpLuid As LUID) As Long

Public Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long

Public Declare Function GetCurrentProcess Lib "kernel32" () As Long

Public Function EnablePrivilege(seName As String, fEnable As Boolean) As Boolean
Dim p_lngRtn As Long
Dim p_lngToken As Long
Dim p_lngBufferLen As Long
Dim p_typLUID As LUID
Dim p_typTokenPriv As TOKEN_PRIVILEGES
Dim p_typPrevTokenPriv As TOKEN_PRIVILEGES
p_lngRtn = OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, p_lngToken)
If p_lngRtn = 0 Then
Exit Function
ElseIf Err.LastDllError 0 Then
Exit Function
End If
p_lngRtn = LookupPrivilegeValue(0&, seName, p_typLUID)
If p_lngRtn = 0 Then
Exit Function
End If

p_typTokenPriv.PrivilegeCount = 1
p_typTokenPriv.Privileges.Attributes = IIf(fEnable, SE_PRIVILEGE_ENABLED, 0)
p_typTokenPriv.Privileges.pLuid = p_typLUID
EnablePrivilege = (AdjustTokenPrivileges(p_lngToken, False, p_typTokenPriv, Len(p_typPrevTokenPriv), p_typPrevTokenPriv, p_lngBufferLen) 0)
End Function

Дело в том, что я не понимаю, как 2-ой код внедрить в первый...