1
2
3
4
5
6
7
|
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
|