اضافة ايقونة الى اليوزرفورم

[med-7]

الرجاء من خبراء الاكسل شرح هذا الكود واعطاء مثال على ذلك بارك الله فيكم 

Private Sub AddIcon()

   Dim hWnd As Long
    Dim lngRet As Long
    Dim hIcon As Long
'    hIcon = Sheets("1").Shapes("Picture").Handle
   hIcon = Sheets("1").Image1.Picture.Handle
    hWnd = FindWindow(vbNullString, Me.Caption)
    lngRet = SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
    lngRet = SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal hIcon)
    lngRet = DrawMenuBar(hWnd)
End Sub