If Button = 2 Then With Text1 .Enabled = False PopupMenu {KendiMenunuz} .Enabled = True .SetFocus End With End If End Sub