用VB做在屏幕上自由移动的窗体怎么写

添加一个Timer控件
设定Timer1Inyerval=1000(或500，100，200等)
Private Sub Timer1_Timer()
Metop=int(ScreenHeightRnd())
MeLeft=int(ScreenWidthRnd())
End Sub

---