1、拖动,参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100494&skin=0
2、获取尺寸,参考
Dim bmp As new bitmap("d:\test.jpg")msgbox(bmp.width)msgbox(bmp.height)bmp.dispose