Declare Function DrawFocusRect Lib "user32" ( _ ByVal hdc As Long, lpRect As RECT) As Long
DrawFocusRect рисует прямоугольник в стиле, используемом при получении фокуса элементом управления. Функция работает только в режиме MM_TEXT. Так как DrawFocusRect рисует в режиме XOR, то повторный вызов функции с такими же координатами прямоугольника стирает этот прямоугольник с экрана. В Windows XP толщина рисуемого прямоугольника может быть тоньше, чем один пиксель
' задаем координаты прямоугольника
Dim m_R As RECT
m_R.Left = 20
m_R.Top = 110
m_R.Right = 50
m_R.Bottom = 180
DrawFocusRect Me.hdc, m_R