Formun Çeşitli Kısımlarının Rengini Değiştirmek

(Modul)(General)(Declaration)
Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, _
lpSysColor As Long, lpColorValues As Long) As Long

Public Const COLOR_SCROLLBAR = 0 ' ScrollBar
Public Const COLOR_BACKGROUND = 1 ' Masaüstü
Public Const COLOR_ACTIVECAPTION = 2 ' Aktif pencere adı
Public Const COLOR_INACTIVECAPTION = 3 ' İnaktif pencere adı
Public Const COLOR_MENU = 4 ' Mönü
Public Const COLOR_WINDOW = 5 ' Windows arka plan
Public Const COLOR_WINDOWFRAME = 6 ' Pencere çerçevesi
Public Const COLOR_MENUTEXT = 7 ' 3D koyu gölge
Public Const COLOR_CAPTIONTEXT = 9 ' Pencere başlığı
Public Const COLOR_ACTIVEBORDER = 10 ' Aktif pencere sınırları
Public Const COLOR_INACTIVEBORDER = 11 ' İnaktif pencere sınırları
Public Const COLOR_APPWORKSPACE = 12 ' MDI desktop arka plan
Public Const COLOR_HIGHLIGHT = 13 ' Seçili alan arka plan
Public Const COLOR_HIGHLIGHTTEXT = 14 ' Seçili mönü
Public Const COLOR_BTNFACE = 15 ' Button ' Buton
Public Const COLOR_BTNSHADOW = 16 ' 3D buton gölgesi
Public Const COLOR_GRAYTEXT = 17 ' Gri text
Public Const COLOR_BTNTEXT = 18 ' Button başlığı
Public Const COLOR_INACTIVECAPTIONTEXT = 19 ' İnaktif pencere
Public Const COLOR_BTNHIGHLIGHT = 20 ' Buton 3D işaretleme

Private Sub Command1_Click()
deger = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(0,155,122)) ‘ Başlık çubuğu
deger = SetSysColors(1, COLOR_WINDOWFRAME, RGB(0,155,122)) ‘ Çerçeve
End Sub