如何用VB做一个图片上传的控件，用户每次上传图片时自动的为图片加上一个我自己的水印。请多多指教!！我现在最多只能加72分，请多多原谅！！谢谢！！

Question

加水印
Const SRCAND = &H8800C6
Private Sub Command1_Click()
    Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, SRCAND
    
End Sub

Answer 1

P1为白底水印,P2为图
以上用于颜色前的地方,浓的地方用以下好一些
Const MERGEPAINT = &HBB0226
Private Sub Command1_Click()
    Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, _
    Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, MERGEPAINT
    
End Sub