Ottenere risultati diversi in base alla parte del Controllo premuta dal mouse

Cliccando su diverse porzioni della superficie di un Controllo grafico, è possibile ottenere risultati differenti.

In questo esempio, se si premerà sulla metà a destra del Button, ci sarà un incremento della variabile globale "i"; se si premerà invece sulla metà sinistra, ci sarà un decremento di detta variabile:

Private i As Integer


Public Sub Button1_MouseDown()

 If Mouse.X > Button1.W / 2 Then 
   Inc i
 Else 
   Dec i
 Endif

 Me.Title = CStr(i) 

End