VB to QB64 converting Win API calls

[SW]

Just code samples for VB and QB64 convertion. Not found something like this, so can be usefull.

sample #1

Code: Visual Basic: [Select]

1. Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Long, Source As Long, ByVal Length As Long)

Code: QB64: [Select]

1. DECLARE DYNAMIC LIBRARY "kernel32"
2.      SUB CopyMemory ALIAS "RtlMoveMemory" (Destination AS LONG, Source AS LONG, BYVAL Length AS LONG)
3. END DECLARE

sample #2

Code: Visual Basic: [Select]

1. Declare Function GetTickCount Lib "kernel32" () As Long

Code: QB64: [Select]

1. DECLARE DYNAMIC LIBRARY "kernel32"
2.     FUNCTION GetTickCount&
3. END DECLARE

Pay attention! "as Long" transform to suffix "&"