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

31 votes370 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote271 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote280 views1 answer
Excel vba ternary
VBA
0 vote273 views1 answer
Thread sleep vb
VBA
0 vote279 views1 answer
Find if year is leap year vb
VBA
0 vote267 views1 answer
Excel vba center userform
VBA
0 vote274 views1 answer
Enable macros on opening workbook vba
VBA
0 vote300 views1 answer
Vba integer to double
VBA
0 vote270 views1 answer
Vba shape transparent
VBA
0 vote261 views1 answer
Excel vba disable mouse click
VBA