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