1、代码
rm.Image = GetImage(ProjectPath & "data\二维码.png") '设置图片
2、如果代码还有问题,那就是你二维码本身就小
http://www.foxtable.com/webhelp/scr/1182.htm