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 vote157 views1 answer
Create new worksheet excel visual basic
VBA
0 vote184 views1 answer
Vba run command
VBA
0 vote186 views1 answer
Vba range clear formatting
VBA
0 vote183 views1 answer
Vba check if class implements interface
VBA
1 vote188 views1 answer
Set font for ms chart vb.net
VBA
0 vote178 views1 answer
Refer to resource using string variable vb.net
VBA
0 vote181 views1 answer
Not allow form to be resized
VBA
1 vote185 views1 answer
What does vbs stand for
VBA
18 votes241 views2 answers
Vba make word from bytes
VBA
9 votes228 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA