Как поменять цвет рамки Текстбокса?

Вопрос:

Каким образом поменять цвет рамки (с чероного на кой-нибудь еще) у ТекстБокса, который имеет свойство Apearance=Flat?

Ответ:

Private Sub Form_Click()
     Dim lngDC As Long
     Dim lngTemp As Long
     Dim lngPen As Long
     Dim pntPoints(4) As POINTAPI
     
     pntPoints(0).x = 0
     pntPoints(0).y = 0
     
     pntPoints(1).x = 0
     pntPoints(1).y = Text1.Height - 1
     
     pntPoints(2).x = Text1.Width - 1
     pntPoints(2).y = Text1.Height - 1
     
     pntPoints(3).x = Text1.Width - 1
     pntPoints(3).y = 0
     
     pntPoints(4).x = 0
     pntPoints(4).y = 0
     
     lngDC = GetDC(Text1.hwnd)
     lngBrush = CreatePen(PS_SOLID, 1, vbBlue)
     lngTemp = SelectObject(lngDC, lngBrush)
     lngTemp = PolylineTo(lngDC, pntPoints(0), 5)
     
End Sub

Объявления функций и констант сам сделай.

    Артем Кривокрисенко