Private Sub cmdLoadPicture_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
        Dim myBrush As Brush
 
 
        Dim OriginalImg As Image = Image.FromFile("logo.png")
        Dim NewImgRect As Rectangle = New Rectangle(0, 0, PictureBox1.Width, _
          PictureBox1.Height)
        'myBrush = New LinearGradientBrush(NewImgRect, Color.White, 
        ' Color.White, LinearGradientMode.Vertical)
        Dim NewImg As New Bitmap(NewImgRect.Width, NewImgRect.Height)
 
        Dim G As Graphics = Graphics.FromImage(NewImg)
        Dim NewImagePos As New Point(PictureBox1.Width - OriginalImg.Width, 0)
        G.DrawImage(OriginalImg, NewImagePos)
        G.Dispose()
        'PictureBox1.CreateGraphics.FillRectangle(myBrush, NewImgRect)
        PictureBox1.Image = NewImg
        PictureBox1.BackColor = Color.White
 
    End Sub
 
    Private Sub cmdSavePicture_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        PictureBox1.Image.Save("NewLogo.jpg")
    End Sub