textbox and mouse_down event

[bolcskei]

Hi guys,

I would like to make sensible textbox to mouse_down event.

I have created userform1, textbox4. Can anybody help me, why the following code is wrong?

Private Sub Textbox4_MouseDown(ByVal Button As Integer)
If Button = 1 Then UserForm2.Show
End Sub

Thanks.

Boris