Sharing: Focus Rect Problem Solved

[Steve Scott]

Incase anyone else is interested in disabling the focus rectangle on a control heres how it's done...Quite handy for custom controls.

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub KillFocus(Hnd)
Const WM_KILLFOCUS = &H8
SendMessage Hnd, WM_KILLFOCUS, 0&, 0&
End Sub

Enjoy
Steve