Option Explicit

Private Declare Function LoadIconBynum Lib "user32" Alias _
    "LoadIconA" (ByVal hInstance As Long, ByVal _
    lpIconName As Long) As Long

Private Declare Function DrawIcon Lib "user32" (ByVal _
    hdc As Long, ByVal x As Long, ByVal y As Long, _
    ByVal hIcon As Long) As Long

Private Const IDI_APPLICATION = 32512&
Private Const IDI_HAND = 32513&
Private Const IDI_QUESTION = 32514&
Private Const IDI_EXCLAMATION = 32515&
Private Const IDI_ASTERISK = 32516&
Private Const IDI_WINLOGO = 32517&

Private Sub cmdAppl_Click()
  ShowSystemIcon Picture1, IDI_APPLICATION
End Sub

Private Sub cmdAsterisk_Click()
  ShowSystemIcon Picture1, IDI_ASTERISK
End Sub

Private Sub cmdExclam_Click()
  ShowSystemIcon Picture1, IDI_EXCLAMATION
End Sub

Private Sub cmdHand_Click()
  ShowSystemIcon Picture1, IDI_HAND
End Sub

Private Sub cmdQuest_Click()
  ShowSystemIcon Picture1, IDI_QUESTION
End Sub

Private Sub cmdWin_Click()
  ShowSystemIcon Picture1, IDI_WINLOGO
End Sub

Private Sub ShowSystemIcon(obj As Object, IDI As Long)
  Dim objHandle As Long

  obj.Cls
  objHandle& = LoadIconBynum(0, IDI&)
  DrawIcon obj.hdc, 2, 2, objHandle&
End Sub