Finally out! New included the whole Win32 API (declares, types, consts) see test below. Also I'm working on
a new GUI and some other things.. will announce that when done

Original code
Code:
'Declares
public const srccopy = &HCC0020

public declare function gettickcount lib "kernel32" alias "GetTickCount" () as long
public declare function bitblt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) as long

'Function
sub timer()
   dim Temp as long
   
   'This code makes no sense
   Temp = gettickcount()
   Temp = sendmessage(wm_activate)
   
   'Another useless code
   if Temp > 10 then: end
   
   'Love this command *g*
   bitblt 0, 0, 100, 200, 0, 0, srccopy
end sub
Improved code
Code:
'Declares
Public Const SRCCOPY = &HCC0020

Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" ( _
	ByVal hDestDC As Long, ByVal X As Long, _
	ByVal Y As Long, ByVal nWidth As Long, _
	ByVal nHeight As Long, ByVal hSrcDC As Long, _
	ByVal xSrc As Long, ByVal ySrc As Long, _
	ByVal dwRop As Long) As Long

'Function
Sub Timer()
	Dim Temp As Long
	
	'This code makes no sense
	Temp = GetTickCount()
	Temp = SendMessage(WM_ACTIVATE)
	
	'Another useless code
	If Temp > 10 Then: End
	
	'Love this command *g*
	BitBlt 0, 0, 100, 200, 0, 0, SRCCOPY
End Sub

'Code improved by vBulletin Tool (Save as...)
Update your vbTool today!