Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
  ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd _
As Long) As Long
 
Private Const VM_ICON = &H0
Private Const VM_REPORT = &H1
Private Const VM_SMALLICON = &H2
Private Const VM_LIST = &H3
 
Private Const GW_CHILD = 5
Private Const GWL_STYLE = (-16)
Private Const LVS_TYPEMASK = &H3
Private Const WM_STYLECHANGED = &H7D
 
Private Type strukt
  Alt As Long
  Neu As Long
End Type
 
Function DLLMain(ByVal ansicht As Long) As Boolean
  DLLMain = 1
End Function
 
Sub Main()
  'Leer
End Sub
 
Function Style(ByVal ansicht As Long) As Boolean
  Dim hWnd As Long
  Dim st As strukt
 
  On Error GoTo fehler
 
  hWnd = FindWindow("Progman", "Program Manager")
  hWnd = GetWindow(hWnd, GW_CHILD)
  hWnd = GetWindow(hWnd, GW_CHILD)
 
  With st
    .Alt = GetWindowLong(hWnd, GWL_STYLE)
    .Neu = .Alt
    .Neu = .Neu And Not LVS_TYPEMASK
    .Neu = .Neu Or ansicht
  End With
 
  SendMessage hWnd, WM_STYLECHANGED, GWL_STYLE, st
  Style = True
  Exit Function
 
fehler:
  Style = False
End Function

Private Declare Function Style Lib "cDA.dll" (ByVal ansicht As Long) As Boolean
 
Private Sub Command1_Click(Index As Integer)
  Dim result As Boolean
 
  Select Case Index
    Case 0: result = Style(VM_ICON)
    Case 1: result = Style(VM_SMALLICON)
    Case 2: result = Style(VM_LIST)
    Case 3: result = Style(VM_REPORT)
  End Select
 
  If result = True Then
    MsgBox "Style wurde geändert.", vbInformation
  Else
    MsgBox "Style wurde NICHT geändert.", vbCritical
  End If
End Sub