Here is a way to possible get what you want.
Use a textbox as a control
Set its backcolour to "button face"
Set its border to none
Set its appearence to flat and
set its locked property to true
Now you have created a label but a label with a dblclick function a gotfocus function and a lostfocus function then code like so...
VB Code:
Private Sub Text1_GotFocus() Text1.BackColor = vbBlue ' or what ever colour you want End Sub Private Sub Text1_LostFocus() Text1.BackColor = &H8000000F 'Button face colour End Sub Private sub Text1_dblClick() 'do whatever End sub
Hope this helps
Hojo




Reply With Quote