Public Class Image
 
  Private _imageToDraw As Bitmap
 
  Public Property ImageToDraw() As Bitmap
    Get
      Return _imageToDraw
    End Get
    Set(ByVal value As Bitmap)
      _imageToDraw = value
      Me.Invalidate() ' Wenn geändert, dann neu zeichnen
    End Set
  End Property
 
  ...
  ...
 
  Private Sub PanelView_Paint(ByVal sender As System.Object, ByVal e As _
    System.Windows.Forms.PaintEventArgs) Handles PanelView.Paint
    If _imageToDraw IsNot Nothing Then
      Dim g As Graphics = e.Graphics
      g.DrawImage(_imageToDraw, 1, 1, CInt(_imageToDraw.Width / 4), CInt( _
        _imageToDraw.Height / 4))
    End If
  End Sub
 
  ...
  ...
End Class