Public Class MyButton
    Inherits System.Windows.Forms.Button
 
    Private m_Image1 As String
    Public Property Image1() As String
        Get
            Return m_Image1
        End Get
        Set(ByVal Value As String)
            m_Image1 = Value ' = "C:\Bild.gif"
        End Set
    End Property
 
    Protected Overrides Sub OnPaint(ByVal pevent As _
      System.Windows.Forms.PaintEventArgs)
        Dim img As Image = System.Drawing.Image.FromFile(m_Image1)
        pevent.Graphics.DrawImage(img, New Point(0, 0))
    End Sub
End Class