Private Declare Function LoadStandardIcon Lib "user32" Alias "LoadIconA" (ByVal _ hInstance As Long, ByVal lIconID As Long) As LongEnum SystemIconConstants IDI_Application = 32512 IDI_Hand = 32513 IDI_Question = 32514 IDI_Exclamation = 32515 IDI_Asterisk = 32516 IDI_Windows = 32517End Enum' returns a Windows standard icon ' (e.g. the icons used in the Message Boxes)'' Requires the IconToPicture functionFunction GetSystemIcon(ByVal ID As SystemIconConstants) As StdPicture 'get the standard icon's handle by calling LoadStandardIcon and then 'convert it to a StdPicture object Set GetSystemIcon = IconToPicture(LoadStandardIcon(0, ID))End Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
