[控件][拉伸][移动]请教VB高手一个控件拉伸和移动的问题

在程序运行时，我想对很多控件数组进行移动和自由拉伸。比如，点击它之后，它周围能出现8个点，我就能在8个方向上进行拉伸。有没有高手能帮我写个子程序或类似的东西，因为我要对image控件进行位伸，而有些控件是没有句柄的，所以，在子程序里不能有句柄。前面有个高手写了个，但有句柄就不行了。最后点击之后它周周围能出现8个点，那样给人一种能自由拉伸的感觉。我说的是VB6

VB的菜单,'工具'里面有添加控件集,自己去欣赏下那个代码,就可以了