Custom Title Bar

[Matthew Gates]

Hey all, I made this little example for you. It's a custom title bar that looks pretty real, as some of you wanted to add a custom button with the _[]X buttons, this example shows you how to do it, well imitate and manipulate it, just shows you what a little API can do .

Download the file below and see the example.
Hope it helps you all in future projects.

And also, I'm putting a little poll up to see what you think of it.

[mazmanr]

thanx mathew very nice...

[YoungBuck]

Very cool and Very Simple! Mad Props to the future GURU!

[dsy5]

Matthew,

Code looks good, I would only change one thing - add a Sub to remove the focus from the checkboxes.

Private Sub Remove_Focus()
      Text1.SetFocus
End Sub

Then place it like such:

Private Sub Check1_Click()
    If Check1.Value = vbChecked Then
        Check1.Value = vbUnchecked
        DoEvents
        Call Remove_Focus
        Me.WindowState = vbMinimized
    End If
End Sub

The buttons look a little funky with the dotted focus rectangle in them.

P.S. How to change the color of the titlebar?

[Lethal]

Very Nice Matthew. Will use in the future.