static extern uint GetSysColor(int nIndex);

Public Shared Function GetSysColor(ByVal nIndex As Integer) As Integer

Dim i as Integer = GetSysColor(1)

'GetSysColor returns in BGR byte order NOT RGB

GetSysColors