despegar un menu en evento onclick

[Kruzado]

ke bueno ke funcione, ahora supongamos que tienes diseñado tu menu de la siguiente manera

mnucontextual
----rojo
----azul
----negro

entonces en la pantalla de siseño busco el evento rojo y escribo lo siguiente

Private Sub rojo_Click()
label3.backcolor=vbred
End Sub

lo mismo para el azun y el verde, ahora para que te muestre el menu cuando le de click con el boton derecho hago o siguiente :
ojo que segun el nombre que le pusiste a la opcion del menu es el que tienes buscar el evento click, yo le puse rojo quizas tu tengas que buscar mnuaxis_click y asi para cada opcion del menu que necesites buscar.... ahora me estoy puro dando vueltas, en tiempo de diseño dale click a cada opcion y la programas.. jejeje sorry

Private Sub Label3_MouseUp(Index As Integer, Label3 As Integer, Shift As Integer, X As Single, Y As Single)
if button=2 then
popupmenu mnucontextual
endif
End Sub


prueba y avisas, saludos