|
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
'URL: http://www.allapi.net
'E-Mail: KPDTeam@Allapi.net
'Select the specified palette
SelectPalette Picture1.hdc, Picture1.Picture.hPal, False
'Make windows use it
RealizePalette Picture1.hdc
End Sub
|
|