[RELEASE]I Think Undetected VB Module

Public Const THIMO19 = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function THIMO1 Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function THIMO2 Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function THIMO3 Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function THIMO4 Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function THIMO5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function THIMO6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function THIMO7 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function THIMOL33T1(THIMO66 As String, address As Long, value As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = THIMO5(vbNullString, THIMO66)
If (hwnd = 0) Then
MsgBox "What about starting the game", vbCritical, "Error"
End
Exit Function
End If
THIMO1 hwnd, pid
phandle = THIMO2(THIMO19, False, pid)
If (phandle = 0) Then
MsgBox "Let's Start OVER :D", vbCritical, "Error"
Exit Function
End If
THIMO3 phandle, address, value, 1, 0&
THIMO4 hProcess
End Function

Public Function THIMOL33T2(THIMO66 As String, address As Long, value As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = THIMO5(vbNullString, THIMO66)
If (hwnd = 0) Then
MsgBox "What about starting the game", vbCritical, "Error"
End
End If
THIMO1 hwnd, pid
phandle = THIMO2(THIMO19, False, pid)
If (phandle = 0) Then
MsgBox "Let's Start OVER :D", vbCritical, "Error"
Exit Function
End If
THIMO3 phandle, address, value, 2, 0&
THIMO4 hProcess
End Function

Public Function THIMOL33T3(THIMO66 As String, address As Long, value As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = THIMO5(vbNullString, THIMO66)
If (hwnd = 0) Then
MsgBox "What about starting the game", vbCritical, "Error"
End
Exit Function
End If
THIMO1 hwnd, pid
phandle = THIMO2(THIMO19, False, pid)
If (phandle = 0) Then
MsgBox "Let's Start OVER :D", vbCritical, "Error"
Exit Function
End If
THIMO3 phandle, address, value, 4, 0&
THIMO4 hProcess
End Function

Public Function THIMOL33T4(THIMO66 As String, address As Long, valbuffer As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = THIMO5(vbNullString, v)
If (hwnd = 0) Then
MsgBox "What about starting the game", vbCritical, "Error"
End
Exit Function
End If
THIMO1 hwnd, pid
phandle = THIMO2(THIMO19, False, pid)
If (phandle = 0) Then
MsgBox "Let's Start OVER :D", vbCritical, "Error"
Exit Function
End If
THIMO7 phandle, address, valbuffer, 1, 0&
THIMO4 hProcess
End Function

Public Function THIMOL33T5(THIMO66 As String, address As Long, valbuffer As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = THIMO5(vbNullString, THIMO66)
If (hwnd = 0) Then
MsgBox "What about starting the game", vbCritical, "Error"
End
Exit Function
End If
THIMO1 hwnd, pid
phandle = THIMO2(THIMO19, False, pid)
If (phandle = 0) Then
MsgBox "Let's Start OVER :D", vbCritical, "Error"
Exit Function
End If
THIMO7 phandle, address, valbuffer, 2, 0&
THIMO4 hProcess
End Function

Public Function THIMOL33T6(THIMO66 As String, address As Long, valbuffer As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = THIMO5(vbNullString, THIMO66)
If (hwnd = 0) Then
MsgBox "What about starting the game", vbCritical, "Error"
End
Exit Function
End If
THIMO1 hwnd, pid
phandle = THIMO2(THIMO19, False, pid)
If (phandle = 0) Then
MsgBox "Let's Start OVER :D", vbCritical, "Error"
Exit Function
End If
THIMO7 phandle, address, valbuffer, 4, 0&
THIMO4 hProcess
End Function