#VM_ICON = $0 
#VM_REPORT = $1 
#VM_SMALLICON = $2 
#VM_LIST = $3 

Structure StyleBits 
  dwOld.l 
  dwNew.l 
EndStructure 
Define.l hWnd 

hWnd = FindWindow_("Progman", "Program Manager") 
hWnd = GetWindow_(hWnd,#GW_CHILD) 
hWnd = GetWindow_(hWnd,#GW_CHILD) 
sb.StyleBits 

With sb 
  \dwOld = GetWindowLongPtr_(hWnd,#GWL_STYLE) 
  \dwOld=GetWindowLongPtr_(hWnd,#GWL_STYLE) 
  \dwNew=sb\dwOld 
  \dwNew=sb\dwNew & ~#LVS_TYPEMASK 
  \dwNew=sb\dwNew | #VM_SMALLICON 
EndWith 

SendMessage_(hWnd,#WM_STYLECHANGED,#GWL_STYLE,sb)