public extern static Int32 GetThemeMetric(IntPtr hTheme, IntPtr hDC, int iPartId, int iStateId, int iPropId, out int piVal);

Declare Function GetThemeMetric Lib "uxtheme.dll" (TODO) As TODO

Public Shared Function GetThemeMetric(hTheme As IntPtr, hDC As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef piVal As Integer) As Int32