Make your own free website on

[an error occurred while processing this directive]
'In general section
Private Declare Function GetBkColor Lib "gdi32" (ByVal hDC As Long) As Long

Private Sub Timer1_Timer()
    'KPD-Team 1998
    'Set the Form's backcolor
    Me.BackColor = RGB(Int(Rnd*255), Int(Rnd*255), Int(Rnd*255))
    'Get the backcolor
    Msgbox "My backcolor is:" + Str$(GetBkColor(Me.hDC))
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at