A decir verdad no entendi bien lo que pedis.... pero interprete que queres "definir" regiones a un botón para que cuando presiones en la parte superior haga algo, en la inferior otra y sucesivamente??.....
si es eso aca dejo un ejemplo
Dim ValX As Single, ValY As Single
Private Sub Command1_Click()
Dim Boton As Byte
If (ValY >= 0) And (ValY <= (Command1.Height / 2)) Then 'Los If determinan las regiones
Boton = 1 'Referencia para boton arriba
Else
If (ValY > (Command1.Height / 2)) And (ValX >= 0) And (ValX < (Command1.Width / 2)) Then
Boton = 2 'Referencia para el boton de la Izquierda
Else
Boton = 3 'Referencia para el boton de la derecha
End If
End If
Select Case Boton
Case 1
MsgBox "Arriba" '<Aca va el codigo para cuando se presiona en la parte superior>...
Case 2
MsgBox "Abajo izq" '<Aca va el codigo para cuando se presiona en la parte inferior - izquierda>...
Case Else
MsgBox "Abajo dcha" '<Aca va el codigo para cuando se presiona en la parte inferior - derecha>...
End Select
' Podria haber declarado a Boton como una variable del tipo String y asignarle
' palabras en vez de numeros, 1 para la parte sup. 2 para la inf-izq y 3 para inf-dcha.,
' seria más fácil entenderlo pero derrochamos recursos, porque sabemos que los tipos
' String son en realidad un arreglo de Caracteres, lo que hace que estemos malgastando
' infinita veces una variable.
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ValX = X
ValY = Y
End Sub
Si redimensionamos el boton, automaticamente tomara los valores de la region
aunque podemos definirlos manualmente si queremos...
*Para ver lo que hace este ejemplo solo es necesario Colocar un boton llamado Command1 y ejecutar con F5
Bye!!!