kResource Lib "kernel32" (ByVal hResData As Long)
 As Long
' The FindResource and FindResourceEx functions are a bit annoying in VB
 because the lpName and lpType
' parameters can take both strings and longs.  Declare lpName and lpType as Any
 and remember to use ByVal
' when placing a parameter into them
Private Declare Function FindResource Lib "kernel32" Alias "FindResourceA"
 (ByVal hInstance As Long, lpName As Any, lpType As Any) As Long
Private Declare Function SizeofResource Lib "kernel32" (ByVal hIn