vb如何设置窗体的最小宽度和高度

Question

有一个窗体，BorderStyle是2-Sizable，怎么设置它的最小宽度和高度？就是说，用鼠标拖拽窗体边缘使它缩小，当小到一定程度时便停在那里，鼠标可以移动但窗体不再变小了。我试过这个方法：
Private Sub Form_Resize()
If Me.Width < 最小宽度 Then
Me.Width = 最小宽度
End If
If Me.Height < 最小高度 Then
Me.Height = 最小高度
End If
不过这好像不是正统的方法，并且这样当窗体被调到最小大小时会出现花屏，而别的程序都不是这样。
谁能告诉我怎么弄

Answer 1

思路是当达到最小后再拖动产生的消息失效.