I have a handle to an edit control I need to set the ForeColor

[TRAUKEN]

HELLO.

I AM TRYING TO WRITE SOME CODE THAT IS BASED ON AN API CONTROL EXAMPLE I DOWNLOADED FROM A PROGRAMMING SITE. IF YOU COULD HELP ANSWER THIS, I WOULD GREATLY APPRECIATE IT.

HERE IS WHAT I AM TRYING TO DO...

NewColor = vbRed
' Create Control Window and Show it
gEditHwnd1& = CreateWindowEx(WS_EX_CLIENTEDGE, "Edit", Txt, WS_CHILD, m_BoxLeft, m_BoxTop, m_BoxWidth, m_BoxHeight, Me.hwnd, 0&, App.hInstance, 0&)

If (gEditHwnd1& <> 0) Then
Call ShowWindow(gEditHwnd1&, SW_SHOWNORMAL)
'ALL VARIABLES ARE LONG
ehDc& = GetWindowDC(gEditHwnd1&)
CurColor = GetTextColor(ehDc&)
di = SetTextColor(ehDc&, NewColor)
di = TextOut(ehDc&, m_BoxLeft, m_BoxTop, Txt, Len(Txt))
SetTextColor CurColor, CurColor
di = ReleaseDC(gEditHwnd1&, ehDc&)
End If
I NEED TO SET THE FONT AND FONTCOLOR OF THE NEWLY CREATED EDITCONTROL. AM I DOING THIS RIGHT? BECAUSE GETTEXTCOLOR AND SETTEXTCOLOR DO NOT RETURN ANYTHING EXCEPT 0.

IF YOU HAVE A BETTER SOLUTION LET ME KNOW. I ALSO HAVE THE WNDPROC SUB I'VE SET UP TO SUBCLASS THE CONTROL.

THANX