VB - Abstände der Desktop Icons ermitteln

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Integer) As Integer

Public Function GetIconSpacing() As Point
    Dim SM_CXICONSPACING As Integer = 38
    Dim SM_CYICONSPACING As Integer = 39
    Return New Point(GetSystemMetrics(SM_CXICONSPACING), GetSystemMetrics(SM_CYICONSPACING))
End Function