怎样移动另一个窗体？

[jxyiyi]

我想编一个就是我移动Form1时，让Form2也跟着Form1一起移动
下面是我用的方法：
Public Frm2 As New Form2
Private mouse_offset As Point

Private Sub Frm1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then
Dim mousePos As Point = sender.findform().MousePosition

mousePos.Offset(-mouse_offset.X, -mouse_offset.Y)

Frm2.Location = mousePos
End If

End Sub

Private Sub Frm1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
mouse_offset = New Point(e.X, e.Y)
End Sub

怎么移动Form2都不动,请高手教教，谢谢

[踏平扶桑]

VS.NET 2005下



Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Form2.Show()
End Sub


Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move
With Form2
.Top = Me.Top
.Left = Me.Left + Me.Width
End With
End Sub

[阿牛138588]

顶

[tioncai]

我总结二位的代码，在VS.NET 2003的代码如下：

Public Form2 As New Form

Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Move
With Form2
.Top = Me.Top
.Left = Me.Left + Me.Width
End With
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form2.Show()
End Sub

[固执的大叔]

迟到了...也顶下

[jxyiyi]

这个怎么给分啊，我是第一次在这里发问，谢谢大家帮我把问题弄好了:)

[踏平扶桑]

点我的帖子－－管理 然后就可以给分了

[GreatWall929]

二楼的可以~~
漫漫的试一下

[hei__an]

NEW Point