★★★敬请留意★★★：和微软一模一样的记事本的源代码（5）[5]

         end if
      end if
      rtn = regclosekey(hkey) 'close the key
   else 'if there was an error opening the key
      if displayerrormsg = true then 'if the user wants errors displayed
         msgbox errormsg(rtn)        'display the error
      end if
   end if
end if

end function