您好!
1.
移动窗体代码如下：

在Modual1.BAS文件中声明：

Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32"
Alias "SendMessageA" (ByVal hwnd As Long， _
ByVal wMsg As Long， ByVal wParam
As Long， lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
然后，在Form_MouseDown事件中：
Private Sub Form_MouseDown(Button As Integer，
Shift As Integer， X As Single， Y As Single)
ReleaseCapture
SendMessage hwnd,WM_NCLBUTTONDOWN，
HTCAPTION， 0&End Sub　　 这时你再运行程序，就会发现窗体可以移动，且上面的控件自动随窗体在移动。

您好
2.
BorderStyle   =   1
MaxButton   =   True  
MinButton   =   True