Visual Basic.NET - Código fuente ¿cual es el fallo?

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim linea As New Dictionary(Of String, Rectangle)

        Dim BASE_del_ahorcado As New Rectangle

        Me.components.Add(BASE_del_ahorcado)

        BASE_del_ahorcado.X = 100

        BASE_del_ahorcado.Y = 100

        BASE_del_ahorcado.Height = 100

        BASE_del_ahorcado.Width = 100

    End Sub

End Class