[rmnr]

انظر لعنوان الفورم

كود :

Private Sub Form1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
   If e.Delta < 0 Then
       Me.Text = "اتجه للخلف"
   Else
       Me.Text = "اتجه للأمام"
   End If
End Sub

قيمة e.Delta تدل على الإتجاه

120 موجبه في الإتجاه للأمام
120- سالبة في الإتجاه للخلف
واختصارا 
أكبر من صفر في الإتجاه للأمام
أقـل من صفر في الإتجاه للخلف

تمنياتي للجميع بالتوفيق