Public Class Form1
    Declare Function GetDC Lib "user32" (ByVal hwnd As IntPtr) As IntPtr
    Declare Function ReleaseDC Lib "user32" (ByVal hwnd As IntPtr, ByVal hdc As _
      IntPtr) As Int32
    Declare Function InvalidateRect Lib "user32" (ByVal hwnd As IntPtr, ByVal _
    lpRect As IntPtr, ByVal bErase As Boolean) As Int32
    Private bmp As Bitmap = SystemIcons.Error.ToBitmap
    Private rec As Rectangle = Screen.PrimaryScreen.Bounds
    Private rnd As New Random
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Me.MouseDown
        If e.Button = MouseButtons.Left Then
            Dim DC As IntPtr = GetDC(IntPtr.Zero)
            Using g As Graphics = Graphics.FromHdc(DC)
                g.DrawImage(bmp, rnd.Next(rec.Width), rnd.Next(rec.Height))
            End Using
            ReleaseDC(IntPtr.Zero, DC)
        ElseIf e.Button = MouseButtons.Right Then
            InvalidateRect(IntPtr.Zero, IntPtr.Zero, True)
        End If
    End Sub
End Class