怎样编写控件让控件在程序设计阶段保持控件的大小不变？

Question

就像通用对话框一样

Answer 1

Private Sub UserControl_Resize()
    If Width <> 1000 Or Height <> 1000 Then
        Width = 1000
        Height = 1000
    End If
End Sub

Answer 2

呵呵，我也落后了，看来想捞分也得早起啊！不过我有点疑问，请教下：
我所知的Resize事件就是在大小发生改变的时候就会触发的
所以蚜虫的代码中“if...then”是否可以不要？
代码改为：
Private Sub UserControl_Resize()
    Width = 控件的宽度
    Height = 控件的高度
End Sub
别误会，不是挑刺，我也菜得很，仅为学习。

Answer 3

加这个if，是担心“Width = 控件的宽度”会再次触发Resize事件造成堆栈溢出
刚才用窗体的Resize试验了一下，“if...then”可以不要