userform 팝업메뉴 만들기

Private Sub cmd_popupmenu_Click()


Dim ctrl0, ctrl1, ctrl2, ctrl3
    
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.CommandBars("iMenu").Delete
    Set ctrl0 = Application.CommandBars.Add(Name:="iMenu", Position:=msoBarPopup)


                Set ctrl1 = ctrl0.Controls.Add(1)
                With ctrl1
                    .Caption = "인쇄"
                    .FaceId = 31
                    .OnAction = "print"

                End With

                Set ctrl2 = ctrl0.Controls.Add(1)
                With ctrl2
                    .Caption = "자리바꾸기"
                    .FaceId = 32
                    .OnAction = "change"
                End With

                Set ctrl3 = ctrl0.Controls.Add(1)
                With ctrl3
                    .Caption = "시트복사"
                    .FaceId = 33
                    .OnAction = "copysht"
                End With



    Application.ScreenUpdating = True
    ctrl0.ShowPopup
    

End Sub