/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 vote228 views1 answer
Excel vba disable copy paste
VBA
1 vote234 views1 answer
Excel vba close form escape key
VBA
-1 vote252 views1 answer
Code for reading letters only in vb 6
VBA
0 vote232 views1 answer
Vbscript abs
VBA
0 vote274 views1 answer
.net crash app
VBA
4 votes255 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote247 views2 answers
Vba remove line breaks
VBA
0 vote363 views1 answer
Vba line feed
VBA
0 vote236 views1 answer
Search in richtextbox vb.net
VBA
0 vote240 views1 answer
Sort dictionary by key vba
VBA