Windows 10 Dark Mode & VB6 apps

[Schmidt]

my VB6 code:

Private Declare Function DwmSetWindowAttribute Lib "dwmapi.dll" (ByVal HWND As Long, ByVal dwAttribute As Long, ByRef pvAttribute As Long, ByVal cbAttribute As Long) As Long
Private Const DWMWA_USE_IMMERSIVE_DARK_MODE = 20

Private Sub Form_Load()

   Dim bValue As Long
   bValue = 1

   Call DwmSetWindowAttribute(Me.hWnd, DWMWA_USE_IMMERSIVE_DARK_MODE, bValue, LenB(bValue))

End Sub

I'm starting to think that Dark Mode isn't possible with VB6...

Works as it should here in my IDE on Win11 (which I have running "manifested, enabling Themes").

I'm quite sure, that all this DWM-stuff only works properly, when you include a proper manifest (either in your compiled Exe, or in the IDE itself).

Olaf