Private Sub FinalSelect(ByVal ucName As String)
        Dim a As New UserControl
        a.Name = ucName
        With a
            .Height = fMain.Panel1.Height
            .Width = fMain.Panel1.Width
        End With
        fMain.Panel1.Controls.Add(a)
End Sub