VB.NET窗体操作技巧两则

一、如何拖动没有边框的窗体？

　　这个功能在VB6中，需要借助于API函数才能实现。而在VB.NET中，凭自己的功能就能实现。首先设置窗体的FormBorderStyle属性为none以去掉窗体的边框，然后在窗体上添加一个按钮。窗体中的代码如下：

Code:

1. Public Class Form1   
2. 　Inherits System.Windows.Forms.Form   
3.   
4. 　Private mouse_offset As Point   
5. 　Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As 　System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown   
6. 　　mouse_offset = New Point(e.X, e.Y)   
7. 　End Sub  
8.   
9. Private Sub form1_MouseMove(ByVal Sender As System.