Private Sub pictureBoxGrande_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pictureBoxGrande.MouseMove
 For Each rect As Rectangle In rectangles
  'Se il rettangolo contiene la il cursore...
  If rect.Contains(e.Location) Then
   'Imposto il cursore su Hand
   Cursor = Cursors.Hand
   'Esco dalla Sub
   Return
  End If
 Next
'Se invece il mouse non è contenuto in uno dei rettangoli (infatti la sub non è uscita) imposto il cursore su Default
Cursor = Cursors.Default
End Sub