Windows Forms 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 vote331 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote346 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote334 views1 answer
Reference to a non-shared member requires an object reference
VBA
-1 vote371 views1 answer
Vba sendkeys
VBA
0 vote319 views1 answer
Ribbon show/hide
VBA
0 vote318 views1 answer
Vba check if class implements interface
VBA
0 vote379 views1 answer
Winforms dark title bar
VBA
0 vote325 views1 answer
Selecttoken em vbnet e json
VBA
0 vote325 views2 answers
Excel vba copy paste after last row
VBA
0 vote323 views1 answer
Write listbox to text file vb.net
VBA