مشکل در نمایش آیکون ...

[vizvizbasic]

اصلا ناراحتی به دل راه نده اینم کدش:

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons 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 Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Sub Form_Paint()
  Dim hIcon As Long
  
  Picture1.AutoRedraw = True
  Me.ScaleMode = vbPixels
  ExtractIconEx "shell32.dll", 50, hIcon, ByVal 0&, 1
  DrawIcon Me.hdc, 32, 40, hIcon
  
  ExtractIconEx "d:\windows\system32\shell32.dll", 75, hIcon, ByVal 0&, 1
  DrawIcon Picture1.hdc, 0, 0, hIcon
  DestroyIcon hIcon
End Sub

-
یادت نره یه پیکچر باکس رو فرم داشته باشی و آدرس هم در صورت لزوم تغییر بده

ای رحمت ...
دست و پنجه ت درد نکنه !
خیر ببینی جوووووون !
کارمو آسون کردی .
موفق و پیروز .