General API-functions

'Dans la section générale de la feuille
Private Declare Function GetBkColor Lib "gdi32" (ByVal hDC As Long) As Long

Private Sub Timer1_Timer()
'VbAndJava 1999/2000
'Guerrault Yonni
'E-Mail : Yonni4@iFrance.com
Me.BackColor = RGB(Int(Rnd*255), Int(Rnd*255), Int(Rnd*255))
Msgbox "Mon backcolor est :" + Str$(GetBkColor(Me.hDC))
End Sub