Saludos:

Puedes usar la instruccion Adhandler para cada boton al crear cada boton, asi:

Public Function CrearBotonesCamareros(ByVal cantidad As Integer, ByVal x As Integer, ByVal y As Integer)...