/VBA/Windows Presentation Foundation dark title bar

Windows Presentation Foundation 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 vote218 views1 answer
Test if form is open vb
VBA
1 vote232 views2 answers
Excel vba password protect
VBA
0 vote265 views1 answer
Vba ternary
VBA
0 vote220 views1 answer
Add text to combobox drop down vb
VBA
0 vote226 views1 answer
How to carry text to the next line in a label in vb.net
VBA
5 votes240 views1 answer
Xlvba double quotes in string literal
VBA
8 votes306 views1 answer
Vba make integer
VBA
0 vote233 views1 answer
Vba first line of string
VBA
-1 vote258 views1 answer
How save excel through visual basic
VBA
0 vote245 views1 answer
For each item in folder outlook vba
VBA