Make your own free website on

[an error occurred while processing this directive]
'This project needs a picturebox, Picture1, with a picture
'and a button
Const DST_TEXT = &H1
Const DST_ICON = &H3
Const DST_BITMAP = &H4
Const DSS_NORMAL = &H0
Const DSS_UNION = &H10 '/* Gray string appearance */
Const DSS_MONO = &H80
Const DSS_RIGHT = &H8000
Private Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal flags As Long) As Long
Private Sub Command1_Click()
    'KPD-Team 1999
    'API uses pixels
    Picture1.ScaleMode = vbPixels
    Picture1.AutoSize = True
    'Dither the image
    DrawState Picture1.hDC, 0, 0, Picture1.Picture, 0, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, DST_BITMAP Or DSS_UNION
End Sub

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