Public Class Form1
    Private bm As New Bitmap(SystemIcons.Error.ToBitmap)
    Private rec As New Rectangle(0, 0, bm.Width, bm.Height)
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        rec.Location = e.Location
        Me.Invalidate()
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawImage(bm, rec)
    End Sub
End Class