如何使程序界面随屏目分辩率自动变化？？？？

Question

我编的软件只能在分辨率800×600下运行时看上去大小正好，当分辨率改变时，软件
就会变得特难看。如何能让软件随分辨率改变？？？？？？？？？

Answer 1

Function AutoSize()
        Dim Ctr As Control
        Dim Size As Double
        
        On Error Resume Next
        Size = Screen.Width / (800 * 15)
        For Each Ctr In Me.Controls
            With Ctr
                 If UCase$(TypeName(Ctr)) = "LINE" Then
                    .X1 = .X1 * Size: .X2 = .X2 * Size
                    .Y1 = .Y1 * Size: .Y2 = .Y2 * Size
                 Else
                    .Move .Left * Size, .Top * Size, .Width * Size, .Height * Size
                    .FontSize = .FontSize * Size
                 End If
            End With        Next
End Function

Answer 2

一种是让窗口大小固定,不让用户改变大小,另一种方法是在窗口的RESIZE事件里写代码,控件窗口中各个控件的位置及大小.