"Button_1"
"Button_2"
"Button_3"

    Dim Button_1_Location_Y As Integer = 3
    Dim Button_2_Location_Y As Integer = 32
    Dim Button_3_Location_Y As Integer = 61

        For Each Control In Panela.Controls
            If Control.GetType.ToString.Contains("Button") Then
                Dim Botoncito As Button = CType(Control, Button)
                If Not Botoncito.Name = "Button_" & Selected_TAB Then
 
                    ' Aquí el problema que no sé resolver:
                    Botoncito.Location = New Point(Botoncito.Location.X, (Botoncito.name & "_Location_Y")) ' String: Button_1_Location_Y 
 
 
                End If
            End If
        Next

(Botoncito.Name & "_Location_Y") ' String: Button_1_Location_Y 

        Dim MyDictionary As New Dictionary(Of String, Boolean)
 
        MyDictionary.Add("A", True)
        MyDictionary.Add("B", False)
        MyDictionary.Add("C", Nothing)
 
        ' Set value
        MyDictionary.Item("C") = True
 
        ' Get Value
        MsgBox(MyDictionary.Item("C"))

    Dim CheckBoxes_Dictionary As New Dictionary(Of String, Boolean)
 
    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CheckBox_A.Tag = "A"
        CheckBox_B.Tag = "B"
        CheckBox_C.Tag = "C"
 
        CheckBoxes_Dictionary.Add("A_Enabled", Nothing)
        CheckBoxes_Dictionary.Add("B_Enabled", Nothing)
        CheckBoxes_Dictionary.Add("C_Enabled", Nothing)
    End Sub
 
    Private Sub CheckBoxes_CheckedChanged(sender As Object, e As EventArgs) Handles _
        CheckBox_A.CheckedChanged, _
        CheckBox_B.CheckedChanged, _
        CheckBox_C.CheckedChanged
 
        CheckBoxes_Dictionary.Item(sender.tag & "_Enabled") = sender.Checked
 
    End Sub