immagine con aree sensibili

[xegallo]

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If X < Picture1.Width / 3 And Y < Picture1.Height / 3 Then
      MsgBox "ciao"
   Else
      MsgBox "Buongiorno"
   End If
End Sub