METTRE UNE IMAGE EN FLOU !!! (PIXELISATION)

Private Sub Command2_Click()
flou Picture1, Picture2, 50, 1 'modepuiss = 1 ou 2 ou 3 .... = le scale mode
End Sub

Sub flou(Picture1 As PictureBox, Picture2 As PictureBox, Nivo, ModePuiss As Integer)
Picture1.ScaleMode = ModePuiss
Picture2.ScaleMode = Picture1.ScaleMode
For x = 0 To Picture1.ScaleHeight Step Nivo
For y = 0 To Picture1.ScaleWidth Step Nivo
Picture2.Line (x, y)-(x + Nivo - 1, y + Nivo - 1), Picture1.Point(x + Nivo - 1, y + Nivo - 1), BF
DoEvents
Next
Next
End Sub