Как создать свой control наследованием от label?

Class SomeName
     Inherits Label

Public Class Form4
    Public Class MyNewLabel
        Inherits Label
 
        Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
            MyBase.OnPaint(e)
            Dim rand As New Random()
            Me.BackColor = Color.FromArgb(rand.Next(255), rand.Next(255), rand.Next(255))
        End Sub
    End Class
    Dim newlbl As MyNewLabel
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not newlbl Is Nothing Then newlbl.Dispose()
        newlbl = New MyNewLabel
        newlbl.Top = 20
        newlbl.Left = 20
        Me.Controls.Add(newlbl)
    End Sub
End Class

Лейбл.Parent = ПикчерБокс

Public Class FormAbout
 
    Private Sub FormAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Загружаю картинки из файлов
        Me.PictureBox_FormAbout_layer.Load("Images\desktop\secm\about\layer.jpg")
        Me.PictureBox_FormAbout_exit_d.Load("Images\desktop\secm\about\btn\exit_d.png")
        Me.PictureBox_FormAbout_exit_a.Load("Images\desktop\secm\about\btn\exit_a.png")
        'Задаю родительский объект для Label1
        Me.Label1.Parent = PictureBox_FormAbout_layer 'Без "Me." тоже самое
    End Sub
 
    'Задаю смену картинок при наведении мыши
    Private Sub PictureBox_FormAbout_exit_d_MouseMove() Handles PictureBox_FormAbout_exit_d.MouseMove
        Me.PictureBox_FormAbout_exit_a.Visible = True
        Me.PictureBox_FormAbout_exit_d.Visible = False
    End Sub
 
    Private Sub PictureBox_FormAbout_exit_a_MouseLeave() Handles PictureBox_FormAbout_exit_a.MouseLeave
        Me.PictureBox_FormAbout_exit_d.Visible = True
        Me.PictureBox_FormAbout_exit_a.Visible = False
    End Sub
 
    'Задаю действие при клике
    Private Sub PictureBox_FormAbout_exit_a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox_FormAbout_exit_a.Click
        Me.Close()
    End Sub
End Class

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label1.Parent = PictureBox1
        Me.PictureBox2Parent = PictureBox1
    End Sub
 
End Class