dim i as integer
for i=PanelList.Controls.Count to 1 step -1
If TypeOf PanelList.Controls(i) Is System.Windows.Forms.Panel Then
PanelList.Controls.RemoveAt(i - 1)
End If
next

完璧だｗ