Private Declare Sub ReleaseCapture Lib "User32" ()

Const WM_NCLBUTTONDOWN = &HA1

Const HTCAPTION = 2

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

ReleaseCapture()

SendMessage(Me.Handle.ToInt64, WM_NCLBUTTONDOWN, HTCAPTION, 0)

End Sub

三、结束语

以上实例在Windows 2000,VB6,VS.NET环境下运行通过。从以上实例，我们可以看到，以前VB6没有的好多属性和方法，在VB.NET中已经提供了出来，而且.NET提供了许多类库，可以完成在VB6中需要借助大量的API才能实现的操作。比如说构建一个多线程应用程序，用VB.NET就很容易了！更值得一提的就是，VB.NET是完全的面向对象，更加容易封装我们的业务逻辑，构建N层应用程序等企业级应用。我爱VB6，更爱.NET！