CLEAR RESOURCE does not appear to work

MORE INFORMATION

1. Run the following code from a .prg:

         PUBLIC oform
         oform=CREATEOBJECT('form1')
         oform.Show
   
         DEFINE Class form1 AS Form
           Top = 0
           Left = 0
           Height = 234
           Width = 207
           DoCreate = .T.
           Caption = "Clear Resource Demo"
           Name = "form1"
           changedbmp = .F.
           ADD OBJECT image1 AS Image WITH ;
             Stretch = 2, ;
             Height = 120, ;
             Left = 36, ;
             Top = 12, ;
             Width = 144, ;
             Name = "Image1"
           ADD OBJECT command1 AS CommandButton WITH ;
             Top = 156, ;
             Left = 60, ;
             Height = 27, ;
             Width = 96, ;
             Caption = "\<Toggle bitmap", ;
             Default = .T., ;
             Name = "Command1"
          ADD OBJECT command2 AS CommandButton WITH ;
             Top = 192, ;
             Left = 67, ;
             Height = 27, ;
             Width = 84, ;
             Caption = "\<Update form", ;
             Name = "Command2"
   
           PROCEDURE image1.Init
             Clear RESOURCES
             COPY FILE home()+'wizards\wizbmps\wzclose.bmp' TO 'bmptemp.bmp'
             THIS.Picture='bmptemp.bmp'
           ENDPROC
   
           PROCEDURE command1.Click
             IF THISFORM.changedbmp=.F.
               THISFORM.changedbmp=.T.
               COPY FILE home()+'wizards\wizbmps\wzedit.bmp' TO 'bmptemp.bmp'
             ELSE
               THISFORM.changedbmp=.F.
               COPY FILE home()+'wizards\wizbmps\wzclose.bmp' TO 'bmptemp.bmp'
             ENDIF
             CLEAR RESOURCES
             THISFORM.REFRESH
           ENDPROC
   
           PROCEDURE command2.Click
             LOCAL lcPictemp
             lcPictemp=thisform.image1.Picture
             THISFORM.image1.Picture=''
             CLEAR RESOURCES (lcPictemp)
             THISFORM.image1.Picture=lcPictemp
           ENDPROC
   ENDDEFINE
   						

2. Press the "Toggle bitmap" button. Note how the button does not update the image even though it contains a CLEAR RESOURCES command in its click code.
3. Press the "Update form" button. Now the image is updated.