Enable/Disable

I am trying to enable a button at run-time erroe but for some reason I can not get it to work and I am recieving a error message:

 

 

My code:

 

Set ControlFile = MenuBar.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&File")
 With ControlFile.CommandBar.Controls
        .Add xtpControlButton, FILE_NEW, "&New"
        .Add xtpControlButton, FILE_OPEN, "&Open"
        Set Control = .Add(xtpControlButton, FILE_SAVE, "&Save"):  Control.BeginGroup = True: Control.Enabled = False
        Set Control = .Add(xtpControlButton, FILE_PRINT, "&Print"): Control.Enabled = False
        Set Control = .Add(xtpControlButton, FILE_EXIT, "&Exit"): Control.BeginGroup = True
End With

 

and within the commandbar_update

select case control.id

case FILE_PRINT: if PName="" then control.enable=false else control.enable=true

end select

 

 

Please Help!