Wpf dark title bar

' Note: This is supported on Windows 10 and higher

Imports System.Runtime.InteropServices
    
Class Example
    
	<DllImport("dwmapi.dll", PreserveSig:=True)>
	Public Shared Function DwmSetWindowAttribute(hwnd As IntPtr, attr As Integer, ByRef attrValue As Integer, attrSize As Integer) As Integer
	End Function
    
	' Use this line for WPF. Value of true makes the title bar dark, false is normal. Note that Me is the window you want to apply the dark title bar to
	InteropHelper.DwmSetWindowAttribute(New Interop.WindowInteropHelper(Me).Handle, 20, True, Runtime.InteropServices.Marshal.SizeOf(True))

    ' Use this line for Windows Forms. Value of true makes the title bar dark, false is normal. Note that Me is the form you want to apply the dark title bar to
	InteropHelper.DwmSetWindowAttribute(New Me.Handle, 20, True, Runtime.InteropServices.Marshal.SizeOf(True))

    
End Class

Similar codes

1 vote179 views1 answer
Add a index column power bi
VBA
8 votes365 views1 answer
Excel vba make word from bytes
VBA
0 vote180 views1 answer
Weekday vba
VBA
1 vote139 views1 answer
Vba listindex select multiple items vba
VBA
5 votes185 views1 answer
Excel vba right word from Long Integer
VBA
5 votes193 views1 answer
Excel-vba get integer high byte
VBA
0 vote177 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
2 votes167 views1 answer
Vba uppercase first letter of each word
VBA
0 vote182 views1 answer
Vba keep command window open
VBA
0 vote180 views1 answer
Vba loop through textboxes
VBA