VB怎么实现两个窗体接触时粘在一块儿 , 当拖动主窗体时,会一起移动?

VB中是没有窗体移动事件的。
简单方法：
用timer控件，interval属性设置小一点，如5
然后加代码：
Private Sub Timer1_Timer()
Form2.Left = Form1.Left
Form2.Top = Form1.Top + Form1.Height
End Sub

在主窗体的移动事件里，让次窗体的left和top属性改变。
form2.top=form1.top
form2.left=form1.left+form1.width
上面2句就是让次窗体和主窗体上端对其，并且紧贴在主窗体右边。
其他同理。