如何改为由鼠标滚轮来改变窗体大小变化?

下面是一段用鼠标拖动窗体边框,可改变窗体大小的代码
现在要改为操作鼠标的滚轮,就可以改变窗体大小,请问如何写成这样的代码?
Private Sub Form_Load()
'窗体高度等于屏幕高度的六分之一
  Form1.Height = Screen.Height / 6
'窗体宽度等于屏幕宽度的六分之一
  Form1.Width = Screen.Width / 6
End SubPrivate Sub Form_Resize()
  Command1.Move 0, 0, ScaleWidth, ScaleHeight '控件Command可随窗体大小变化
End Sub