[عبد الهادي بهاب]

 the MouseEventArgs:

كود :

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
   If e.Delta > 0 Then
       Trace.WriteLine("Scrolled up!")
   Else
       Trace.WriteLine("Scrolled down!")
   End If
End Sub