Custom Title Bar

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.

thanx mathew :) very nice...

Very cool and Very Simple! Mad Props to the future GURU! ;) :D

Matthew,

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

Code:

---

Private Sub Remove_Focus()
      Text1.SetFocus
End Sub

---

Then place it like such:

Code:

---

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?

Very Nice Matthew. Will use in the future. :D