VB Snippet - Get Default Icon Width

VB Code:

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
 
Private Sub Form_Load()
 
    Dim x As Long
 
    x = GetSystemMetrics(11)
 
    MsgBox "Default Width of icon is " & x & " pixels"
 
End Sub