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

5 votes403 views1 answer
Xlvba double quotes in string literal
VBA
32 votes551 views2 answers
Excel vba column letter
VBA
0 vote355 views1 answer
Vba sort multiple columns
VBA
27 votes499 views2 answers
Vba check if file exists
VBA
0 vote360 views1 answer
Excel protect cells with formulas
VBA
0 vote410 views1 answer
Filesystemobject vba reference
VBA
8 votes428 views1 answer
Excel vba determine number of elements in a 2D array
VBA
1 vote351 views1 answer
Vba delete file
VBA
0 vote346 views1 answer
Vba word open document read only
VBA
5 votes346 views1 answer
Excel vba high word from Long Integer
VBA