请教,我需要将FORM设置为一个固定大小该如何做啊

Question

borderstyle=1
Private Sub Form_Load()
Dim Str As String
Form.BorderStyle = 1With Combo1(0)
    .Clear
    .AddItem "1998年"
    .AddItem "1999年"
    .AddItem "2000年"
    .AddItem "2001年"
    .AddItem "2002年"
    .Text = .List(0)
End WithWith Combo1(1)
    .Clear
    .AddItem "1月"
    .AddItem "2月"
    .AddItem "3月"
    .AddItem "4月"
    .AddItem "5月"
    .AddItem "6月"
    .AddItem "7月"
    .AddItem "8月"
    .AddItem "9月"
    .AddItem "10月"
    .AddItem "11月"
    .AddItem "12月"
    .Text = .List(0)
End WithWith Combo1(2)
    .Clear
    .AddItem "1日"
    .AddItem "2日"
    .AddItem "9日"
    .AddItem "10日"
    .AddItem "11日"
    .AddItem "12日"
    .AddItem "13日"
    .AddItem "14日"
    .AddItem "15日"
    .AddItem "16日"
    .AddItem "17日"
    .AddItem "18日"
    .AddItem "19日"
    .AddItem "20日"
    .AddItem "21日"
    .AddItem "22日"
    .AddItem "23日"
    .AddItem "24日"
    .Text = .List(0)
End With
End Sub是这样吗??

Answer 1

不是吧？
private sub form_load ()
 me.width=6000
 me.heigth=8000
end sub这样就可以什么时候都是固定大小了，
当然一二楼的也对且快
但不如这种能确定大小

Answer 2

不是吧？
private sub form_load ()
 me.width=6000
 me.heigth=8000
end sub这样就可以什么时候都是固定大小了，
当然一二楼的也对且快
但不如这种能确定大小============================:)这样好像不行吧还是用borderstyle好了，不过是设计时，还是运行时，都行