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 vote198 views1 answer
Vba sort the data Z to A
VBA
6 votes184 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote195 views1 answer
Find database connection string vb
VBA
0 vote187 views1 answer
Excel vba named range exists
VBA
5 votes188 views1 answer
Excel vba get user selected range
VBA
1 vote173 views1 answer
Excel vba compare 2 rows
VBA
0 vote192 views1 answer
Delete all controls in an area vb
VBA
0 vote180 views1 answer
Vba code to open a file with login rights
VBA
0 vote184 views1 answer
Check if cell is dbnullvb.net
VBA
0 vote185 views1 answer
How to add line graph vb net
VBA