Code: Select all
Dim g As New clsGradient
Dim dc As New clsDeviceContext
g.Rectangle dc.Handle, 0, 0, 24, 1, RGB(128, 167, 225), RGB(224, 237, 254), False
SetMenuBarBackground Me.hwnd, dc.ConvertToBitmap(0, 0, 24, 1)
Moderator: tungblt
Code: Select all
Dim g As New clsGradient
Dim dc As New clsDeviceContext
g.Rectangle dc.Handle, 0, 0, 24, 1, RGB(128, 167, 225), RGB(224, 237, 254), False
SetMenuBarBackground Me.hwnd, dc.ConvertToBitmap(0, 0, 24, 1)