RTF Label & RTF Button

The attached project contains an RTF Label and an RTF Button control.

I use these all the time, but I haven't messed with the code in either of them in years.

There are quite possibly better options around, but someone asked for these so I posted them.

One nice feature is that you edit the captions directly over the Label or Button (rather than in the properties window).

Also, once one of these controls is on your form, right-click and then "Edit" it to change the caption. A mini-word-processor will pop up.

Enjoy,
Elroy

p.s. A reference to the Rich Text Box control should be made before you throw these into your project.

Fixed a small error in the form frmRtfEdit.
when you click on the color picker closed frmRtfEdit

My contribution

Code:

---

Private selectordecolorabierto As Boolean

Private Sub Timer1_Timer()
    ' Compare the handle of the currently active Window with the handle of the Form1 window:
    If GetActiveWindow() <> hWnd And selectordecolorabierto = False Then
        bCanceled = False
        On Error Resume Next
        Hide
    End If
End Sub

---