تغییر اندازه ی کنترل با کلید میانی موس

در این مثال با استفاده از رویداد چرخش کلید میانی موس در فرم 1 می توان سایز کنترل را تغییر داد

Private Sub Form1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel

        ' Delta ' تعداد چرخش کلید میانی موس را در جهت بالا - مثبت و پایین - منفی برمیگرداند

        

        If e.Delta >= 0 Then

( PictureBox1.Size = New Size(PictureBox1.Width + 2, PictureBox1.Height + 2)                                                           

        Else

( PictureBox1.Size = New Size(PictureBox1.Width - 2, PictureBox1.Height - 2)

        End If

End Sub