你可以到市面上去找一下一本叫<Visual Basic 6.0 实用程序100例>的书,里面就有一个例子.大概要用到这几个API: Public Declare Function CreateCompatibleDC Lib "gdi32" Alias "CreateCompatibleDC" (ByVal hdc As Long) As LongPublic Declare Function CreateIconIndirect Lib "user32" Alias "CreateIconIndirect" (piconinfo As ICONINFO) As LongPublic Declare Function GetIconInfo Lib "user32" Alias "GetIconInfo" (ByVal hIcon As Long, piconinfo As ICONINFO) As Long
不过,现在我找到了个做图标的,东西了。那就是,VC中有个,专们做图标的,功能。可以做得很好。
地址:http://maximsoft.net/softshow.asp?softid=308
Public Declare Function CreateCompatibleDC Lib "gdi32" Alias "CreateCompatibleDC" (ByVal hdc As Long) As LongPublic Declare Function CreateIconIndirect Lib "user32" Alias "CreateIconIndirect" (piconinfo As ICONINFO) As LongPublic Declare Function GetIconInfo Lib "user32" Alias "GetIconInfo" (ByVal hIcon As Long, piconinfo As ICONINFO) As Long