arshesander 0 Newbie Poster

i use this code to diffuse a picture box..

Dim bmap As New Bitmap(PictureBox1.Image)
        PictureBox1.Image = bmap
        Dim tempbmp As New Bitmap(PictureBox1.Image)
        Dim i As Integer, j As Integer
        Dim DX As Integer
        Dim DY As Integer
        Dim red As Integer, green As Integer, blue As Integer

        With tempbmp
            For i = 3 To .Height - 3
                For j = 3 To .Width - 3
                    DX = Rnd() * 4 - 2
                    DY = Rnd() * 4 - 2
                    red = .GetPixel(j + DX, i + DY).R
                    green = .GetPixel(j + DX, i + DY).G
                    blue = .GetPixel(j + DX, i + DY).B
                    bmap.SetPixel(j, i, Color.FromArgb(red, green, blue))
                Next
            Next
        End With

now im asking for help of everybody to pls teach me what code should i write, instead of to diffuse a picture box is to add letter a picture.. where the cursor is positioned? can anybody help me pls?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.