.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 vote176 views1 answer
Limit combobox to list vba
VBA
1 vote177 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote194 views1 answer
Find if year is leap year vb
VBA
0 vote163 views1 answer
Vba argument is set
VBA
3 votes187 views1 answer
Vba double quote
VBA
0 vote199 views1 answer
Delete all controls in an area vb
VBA
0 vote177 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote183 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote177 views1 answer
Excel vba existence of a file
VBA
3 votes202 views2 answers
Vba active workbook path
VBA