바탕화면 아이콘 정렬GetWindow,SendMessage,FindWindow

[올란도]

1. 모듈에 다음의 API FUNCTION 을 선언합니다.

Public Declare Function GetWindow Lib "user32" _
              (ByVal hwnd As Long, _
               ByVal wCmd As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
              (ByVal hwnd As Long, _
               ByVal wMsg As Long, _
               ByVal wParam As Long, _
               lParam As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
              (ByVal lpClassName As String, _
               ByVal lpWindowName As String) As Long

Public Const GW_CHILD = 5
Public Const LVA_ALIGNLEFT = &H1
Public Const LVM_ARRANGE = &H1016

2. 폼에 하나의 버튼을 만들고 다음과 같이 코딩하십시요.

Private Sub Command1_Click()
    Dim hWnd1 As Long
    Dim hWnd2 As Long
    Dim Ret As Long
   
    hWnd1 = FindWindow("Progman", vbNullString)
    hWnd2 = GetWindow(hWnd1, GW_CHILD)
    hWnd1 = GetWindow(hWnd2, GW_CHILD)
    Ret = SendMessage(hWnd1, LVM_ARRANGE, LVA_ALIGNLEFT, 0)
End Sub

[꼭미남강유]

전 변화가 없네요.. 바탕에 아이콘 4개밖에 없으니..