我不想鼠标拖放改变窗体的大小怎样作，怎样做。

Question

把Form的BorderStyle属性改为3就可以了

Answer 1

在 Form_Resize()中写下类似的代码
Frame1.Top = ShockwaveFlash1.Height - 3000: Frame2.Top = Frame1.Top + 600: Frame3.Top = Frame2.Top + 600
 Frame4.Top = Frame1.Top: Frame5.Top = Frame2.Top: Frame6.Top = Frame3.Top
 
 Frame1.Left = ShockwaveFlash1.Left + 2000 - Frame1.Width: Frame2.Left = Frame1.Left: Frame3.Left = Frame1.Left
 Frame4.Left = ShockwaveFlash1.Width - 2000: Frame5.Left = Frame4.Left: Frame6.Left = Frame4.Left
会随界面大小变化，无需调整，不妨试试！

Answer 2

把系统菜单项“大小”删掉，使用api GetSystemMenu DeleteMenu h
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Dim h As Long
    h = GetSystemMenu(Me.hwnd, False)
    DeleteMenu h, 2, MF_BYPOSITION

Answer 3

http://www.csdn.net/expert/topic/1037/1037767.xml?temp=.502041

Answer 4

先把BorderStyle属性设为1
再把MinButton属性设为True
要注意先后顺序

Answer 5

'-------------------------------------------------------
' 将以下代码放到你的表单代码中
'-------------------------------------------------------
Option ExplicitPrivate Const GWL_WNDPROC As Long = (-4&)Private Sub Form_Load()
   Call LockWindow(400,250)
End SubPrivate Sub Form_Unload()
   If procOld > 0 Then
      Call SetWindowLong(hWnd, GWL_WNDPROC, procOld)
   End If
End SubPrivate Function LockWindow(Optional MinWidth As Long, Optional MinHeight As Long, Optional MaxWidth As Long, Optional MaxHeight As Long) As Boolean
   If procOld > 0 Then
      Call SetWindowLong(hWnd, GWL_WNDPROC, procOld)
   End If
   
   With udtMMI
      '指定窗体的最小宽度
      If MinWidth = 0 Then
         .ptMinTrackSize.X = 0
      Else
         .ptMinTrackSize.X = MinWidth
      End If
      
      '指定窗体的最小高度
      If MinHeight = 0 Then
         .ptMinTrackSize.Y = 0
      Else
         .ptMinTrackSize.Y = MinHeight
      End If
      
      '指定窗体的最大宽度
      If MaxWidth = 0 Then
         .ptMaxSize.X = Screen.Width \ Screen.TwipsPerPixelX
      Else
         .ptMaxSize.X = MaxWidth
      End If
      
      '指定窗体的最大高度
      If MaxHeight = 0 Then
         .ptMaxSize.Y = Screen.Height \ Screen.TwipsPerPixelY
      Else
         .ptMaxSize.Y = MaxHeight
      End If
   End With
   procOld = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Function'-------------------------------------------------------
' 将以下代码放到一个模组文件中
'-------------------------------------------------------
Option ExplicitPublic Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes&)
Public Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
Public Type MINMAXINFO
   ptReserved As POINTAPI
   ptMaxSize As POINTAPI
   ptMaxPosition As POINTAPI
   ptMinTrackSize As POINTAPI
   ptMaxTrackSize As POINTAPI
End TypePublic procOld As LongPublic Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Select Case iMsg
      Case &H24 'WM_GETMINMAXINFO=&H24
         Dim udtMINMAXINFO As MINMAXINFO
         CopyMemory udtMINMAXINFO, ByVal lParam, 40&
         With udtMINMAXINFO
            .ptMaxSize.X = udtMMI.ptMaxSize.X
            .ptMaxSize.Y = udtMMI.ptMaxSize.Y
            .ptMaxPosition.X = 0
            .ptMaxPosition.Y = 0
            .ptMaxTrackSize.X = .ptMaxSize.X
            .ptMaxTrackSize.Y = .ptMaxSize.Y
            .ptMinTrackSize.X = udtMMI.ptMinTrackSize.X
            .ptMinTrackSize.Y = udtMMI.ptMinTrackSize.Y
         End With
         CopyMemory ByVal lParam, udtMINMAXINFO, 40&
         WindowProc = False
         Exit Function
   End Select
   WindowProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)
End Function

Answer 6

把Form的BorderStyle属性改为0就可以了

Answer 7

敢写大家的帮助，特别是zyl910兄给我的答案，是我最想要的。 shux(舒) 的代码我把
'-------------------------------------------------------
' 将以下代码放到一个模组文件中
'-------------------------------------------------------
这以下的代码粘贴到模块中运行程序
 ptReserved As POINTAPI
   ptMaxSize As POINTAPI
   ptMaxPosition As POINTAPI
   ptMinTrackSize As POINTAPI
   ptMaxTrackSize As POINTAPI
这一段出现了错误不知是什么原因。 oceanmap() 代码在
Public Const MF_BYPOSITION = &H400&处也出现了错误。 感谢jsl2263(jsl)的代码给我很多启发，让我心中困惑很久的问题解决了。 
 感谢miaoweijun(苗苗)