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

0 vote298 views1 answer
How to self delete a vbscript file
VBA
0 vote323 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote432 views1 answer
Vba vbcrlf chr
VBA
0 vote341 views1 answer
Vba get relative cell address
VBA
0 vote297 views1 answer
Excel vba arrondir
VBA
0 vote343 views1 answer
Weekday vba
VBA
0 vote326 views1 answer
Vba dropdown event
VBA
0 vote356 views1 answer
Vbnet check if string is only letters
VBA
0 vote349 views1 answer
Add text to combobox drop down vb
VBA
1 vote319 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA