Jag har ett formulär som har en textbox och en label (skall bli mer men vi börjar där).

För att förklara enkelt vill jag att textbox'en skall få texten "vänster" om man klickat med vänster musknapp på label'n.
Och textbox'en skall få texten "höger" om man klickar med höger musknapp på label'n.

Att fånga upp Vänster musknapp är ju enkelt, men hur fångar jag upp om höger musknapp trycks ner?
Och hur stänger jag av den snabbmeny som kommer upp när man klickar med höger musknapp i formuläret?
Tacksam för svar
/Magnus

I händelsen MouseDown finns inparametern Button. Om den är 1 är det vänstermusknapp, om den är 2 är det höger.

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

Hej
Option Explicit
'Viktigt Text1 propertie Multiline skall vara True

Private Sub Label1_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
'Man bör ha detta i MouseUp
If Button = 1 Then
Text1.Alignment = 0
Text1 = Label1
Else
'Tror att detta skall hindra PopUp
Button = 0
Text1.Alignment = 1
Text1 = Label1
End If
End Sub

mvh
Sven

Fasen vad ni är snabba!
Nu fungerar det perfekt!

Magnus tackar och bockar.