送分了 这段 delphi 代码用VB 怎么写？ 谢谢！！

Question

var 
  r_Name:array[0..20] of WideChar; 
…… 
const 
    mingzi =$3210103 ;//名字 
…… 
ReadProcessMemory(ProcessID, Pointer(mingzi), @r_Name,20, Num); 
lblName.Caption:=pchar(@r_name); 

Answer 1

var  
  r_Name:array[0..20] of WideChar;  
……  
const  
    mingzi =$3210103 ;//名字  
……  
ReadProcessMemory(ProcessID, Pointer(mingzi), @r_Name,20, Num);  
lblName.Caption:=pchar(@r_name);
---------------
dim r_Name as Integer(0 to 20)//双字节
const mingzi = &H3210103&ReadProcessMemory(ProcessID, mingzi, r_Name,20, Num);
StrConv从r_name当中的Unicode表示的内存数据当中取得相应的字符串。
我只能说个大概。