Make your own free website on

[an error occurred while processing this directive]
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Sub Form_Activate()
    'KPD-Team 1999
    'Select the specified palette
    SelectPalette Picture1.hdc, Picture1.Picture.hPal, False
    'Make windows use it
    RealizePalette Picture1.hdc
End Sub

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