The following code seemed to fix my issue, though the first time my palette is shown on a new install you must first resize manually if you have more than 4 tabs...I have no clue why.
PS = New AcWi.PaletteSet("My New Palette", New System.Guid("{E62F3B19-CD41-4814-A499-B2637A0090E7}"))
'Load a UserControl to the palette
Dim AutomatedShapesUC = New UIAutomatedShapes
PS.Add(AutomatedShapesUC.Text, AutomatedShapesUC)
PS.Style = AcWi.PaletteSetStyles.ShowAutoHideButton Xor AcWi.PaletteSetStyles.Snappable
PS.MinimumSize = New System.Drawing.Size(250, 600)
PS.DockEnabled = AcWi.DockSides.None
PS.Location = New System.Drawing.Point(20, 20)
PS.Visible = True
PS.Dock = AcWi.DockSides.None
PS.Visible = False
PS.Visible = True
Ronnie Wilkins, Jr.