VB Code:
  1. Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

  2.  
  3. Private Sub Form_Load()

  4.  
  5.     Dim x As Long

  6.  
  7.     x = GetSystemMetrics(11)

  8.  
  9.     MsgBox "Default Width of icon is " & x & " pixels"

  10.  
  11. End Sub