.net 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 vote322 views1 answer
Build an index all files of a FTP site
VBA
0 vote357 views1 answer
How to call gcd in vba
VBA
0 vote335 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote298 views1 answer
Excel vba current folder
VBA
0 vote297 views1 answer
Vba loop through table
VBA
4 votes314 views1 answer
Vba create directory
VBA
7 votes327 views1 answer
Vba array declaration
VBA
0 vote315 views1 answer
Weekday vba
VBA
5 votes320 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote308 views1 answer
Vb run command
VBA