Using WinAPI to change the color on the title bar of a UserForm

[abdelfattah]

hello
I search for highlight the title bar of a UserForm .
I have this code should highlight red ,but it doesn't

Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private originalColor As Long
Private Sub UserForm_Activate()
  originalColor = GetSysColor(2)
  Call SetSysColors(1, 2, RGB(255, 0, 0))  'RGB(255,0,0) = RED
End Sub
Private Sub UserForm_Terminate()
  Call SetSysColors(1, 2, originalColor)
End Sub

any solution experts ?

 

[Dan_W]

Oh wow, thank you so very much.
I didn't manage to finish it all last night, but I managed to get some of the changes we discussed into it, save that I hadn't fully implemented the createshadow method.
Thank you for your point about the hidden cancel button - that's a very fair point. I think that because I only found out about it's existence a few months ago, I (wrongly) assumed that perhaps others didn't know about it either - but I wasn't even thinking in those terms when I copied it across from my main class. Perhaps I'll just make it an optional extra, rather than imposing it on people.

I will look at this all now, and continue pulling it all together. Thank you again.

 

[Jaafar Tribak]

Oh wow, thank you so very much.

Thanks.

I have slightly updated the CreateShadow SUB in order to address a couple of small discrepancies.
CustomTitleBarShadow.xlsm Update.