I try to get a error message text for free catalyst control
according to VB sample at
http://www.catalyst.com/cgi-local/knowbase.cgi?action=view&docid=100034

I need to convert the folowing lines to VFP :

Private Declare Function GetModuleHandle Lib "KERNEL32" Alias "GetModuleHandleA" (ByVal strFileName As String) As Long
Private Declare Function LoadString Lib "USER32" Alias "LoadStringA" (ByVal hInstance As Long, ;
	ByVal uid As Long, ByVal strBuffer As String, ByVal cbBuffer As Long) As Long
	
hResource = GetModuleHandle("cswsk32.ocx")
Buffer = String(128, 0)        
nLoadResult = LoadString(hResource, nResult, Buffer, 128)        

Which is the equivalent VFP code for this ?