Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
 
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
       (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
        ByVal lpString As String, ByVal nCount As Long) As Long
 
Private Declare Function SetTextColor Lib "gdi32" _
       (ByVal hdc As Long, ByVal crColor As Long) As Long
 
Private thdc As Long
 
Private Sub Command1_Click()
   SetTextColor thdc, RGB(255, 0, 0)
   TextOut thdc, 0, 0, "C", 1
   SetTextColor thdc, RGB(0, 255, 0)
   TextOut thdc, 8, 0, "y", 1
   SetTextColor thdc, RGB(0, 0, 255)
   TextOut thdc, 16, 0, "b", 1
   SetTextColor thdc, RGB(255, 0, 255)
   TextOut thdc, 24, 0, "e", 1
   SetTextColor thdc, RGB(0, 0, 0)
   TextOut thdc, 32, 0, "r", 1
   SetTextColor thdc, RGB(255, 0, 0)
   TextOut thdc, 40, 0, "L", 1
   SetTextColor thdc, RGB(0, 255, 0)
   TextOut thdc, 48, 0, "o", 1
   SetTextColor thdc, RGB(0, 0, 255)
   TextOut thdc, 56, 0, "r", 1
   SetTextColor thdc, RGB(255, 0, 255)
   TextOut thdc, 64, 0, "d", 1
End Sub
 
Private Sub Form_Load()
 
   thdc = GetDC(Text1.hwnd)
 
End Sub