Ahhhhhhhhhhh

[Arrow_Raider]

How can i save what a picturebox is showing? Here is some of my code:

Private Sub mdiffuse_Click()
Form2.Caption = "VB Effect App-Working..."
    For i = 1 To Picture1.ScaleHeight
        For j = 1 To Picture1.ScaleWidth
        pixval = Picture1.Point(j + Int(Rnd * 3), i + Int(Rnd * 3))
        Picture1.PSet (j, i), pixval
        Next j
    Next i
Form2.Caption = "VB Effect App" 

When it does that, it fills the picturebox with points. When i try to save it useing:

savepicture picture1, ("C:\MyImage.jpg")

It only saves the picture source, not the points. Is it possible to make it save what the picturebox is showing?