VB窗体问题

我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.

要怎么设?

---

Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6

---

VB code:
一劳永逸让VB自动改变控件大小
-------------------------------------------------------------------

　当窗体大小改变时，如何动态的改变控件的大小是许多VB 程序员头痛的事。有的人设置窗体Resizable 但却不改变控件的大小；有的人则根据控件的绝对位置与窗口大小相加减的办法来重新定位控件与改变大小，这种办法比较繁琐，且不可重用；当然也有人则限定窗口干脆不让改变。有没有一种简便易行的办法？答案是肯定的，下面给出一个一劳永逸的办法，源程序如下:

Option Explicit
Private FormOldWidth As Long
　 '保存窗体的原始宽度
Private FormOldHeight As Long
　 '保存窗体的原始高度

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
　 Dim Obj As Control
　 FormOldWidth = FormName.ScaleWidth
　 FormOldHeight = FormName.ScaleHeight
　 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

'按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
　 Dim Pos(4) As Double
　 D