我在家里编写了一个程序，家里显示器的分辨率是1440*900（宽屏），在窗体中我把各个控件放在了合适的位置，但拿到单位使用发现单位的各个电脑的分辨率不尽相同，有800*600、1024*768等等等等，这样就造成窗体和内部的控件显示不全的现象，不知是否有方法可以根据分辨率的不同而自动放大或缩小窗体和内部的控件？我看到网上说可以先求出分辨率后再根据分辨率设置窗体和内部的控件的长和宽，分不同的情况用上几个if。。。then。。。。语句，但是我的这个软件中用上了200多个控件，一一修改是不是太麻烦了？麻烦告知是否有较简便的方法？谢谢啦！

最好附上实例，谢谢了！

200多个...恩，一定功能强大。
我也只能说慢慢改吧。或者可以把一部分放到Frame上面去。

我在网上找到一段例子，带到程序里后发现窗体里的控件字体都变小了，这是怎么回事？在那里修改呀？

   ScaleX = FormName.ScaleWidth \ ObjOldWidth
   '保存窗体宽度缩放比例
   ScaleY = FormName.ScaleHeight \ ObjOldHeight
   '保存窗体高度缩放比例

   ObjOldFont = FormName.Font.Size \ ObjOldHeight

用"\"来做运算。

Public fbl As Integer
Public shuiping As Integer
Public cuizhi As Integer

Sub SetDeviceIndependentWindow(thisform As Form)
Dim Obj As Control
Dim DesignX As Integer
Dim DesignY As Integer
Dim XFactor As Single
Dim YFactor As Single
Dim X As Integer
    DesignX = 1440: DesignY = 900
    XFactor = (Screen.Width / Screen.TwipsPerPixelX) / DesignX
    YFactor = (Screen.Height / Screen.TwipsPerPixelY) / DesignY
  If XFactor = 1 And YFactor = 1 Then
     fbl = 0
  Else: fbl = 1
  End If
End Sub
Public Sub ResizeForm(formname As Form)
Dim pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double
ScaleX = shuiping / 1440
ScaleY = cuizhi / 900
On Error Resume Next
   For Each Obj In formname
     StartPos = 1
       For i = 0 To 3
        TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
        If TempPos > 0 Then
          pos(i) = Val(Mid(Obj.Tag, StartPos, TempPos - StartPos))
          StartPos = TempPos + 1
        Else
          pos(i) = 0
        End If
      Next i
     Obj.Move pos(0) * ScaleX, pos(1) * ScaleY, pos(2) * ScaleX, pos(3) * ScaleY
     If TypeOf Obj Is OptionButton Then
        Obj.FontSize = Obj.FontSize * ScaleX
       ElseIf TypeOf Obj Is ComboBox Then
         Obj.FontSize = Obj.FontSize * ScaleX
        ElseIf TypeOf Obj Is TextBox Then
          Obj.FontSize = Obj.FontSize * ScaleX
         ElseIf TypeOf Obj Is Label Then
           Obj.FontSize = Obj.FontSize * ScaleX
        ElseIf TypeOf Obj Is CheckBox Then
          Obj.FontSize = Obj.FontSize * ScaleX
       ElseIf TypeOf Obj Is CommandButton Then
         Obj.FontSize = Obj.FontSize * ScaleX
     ElseIf TypeOf Obj Is Frame Then
       Obj.FontSize = Obj.FontSize * ScaleX
     End If
  Next Obj
On Error GoTo 0
End Sub
Public Sub ResizeInit(formname As Form)
Dim Obj As Control
On Error Resume Next

  For Each Obj In formname
    Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
  Next Obj
On Error GoTo 0
End Sub
试试这个，不过据说这种遍历函数并不是对所有的控件都适用