Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Using bmp As New Bitmap(Me.Icon.ToBitmap)
            e.Graphics.DrawImage(bmp, 10, 10, 128, 128)
            e.Graphics.InterpolationMode = _
              Drawing2D.InterpolationMode.NearestNeighbor
            e.Graphics.DrawImage(bmp, 150, 10, 128, 128)
        End Using
    End Sub
End Class