从其他窗口提取图标并更换图标

一个应用程序发送WM_SETICON消息来将一个大图标或一个小图标与一个窗口相关联。大图标将在按下ALT+TAB组合键时显示，小图标将在窗口的标题栏内显示。

Private   command1_click()
Dim   nMainhwnd&,hIcon&
shell   "notepad.exe ",1
nmainhwnd=findwindow( "NotePad ",vbnullstring)
hicon=sendmessage(me.hwnd,WM_GETICON,ICON_BIG,byval   0)
sendmessage   nMainhwnd,WM_SETICON,ICON_BIG,byval   hicon