レオさんありがとうございます。　VB2008をはじめて数ケ月の未熟者ですので
コードを掲載するのはとても恥ずかしいのですが・・・・
へたくそと笑わないでくださいね^^;;
メニューを作っています。　これがボタン表示の部分
 Dim i As Integer
 Dim myValue As Integer
 
 For i = 1 To 50
     Me.Panel1.Controls("cmd" & i).Enabled = False
 Next

 M_MyMenuBindingSource.MoveFirst()

For i = 1 To M_MyMenuBindingSource.Count
     myValue = M_MyMenuBindingSource.Current("ID")

     Me.Panel1.Controls("cmd" & myValue).Text = M_MyMenuBindingSource.Current("名称")
     Me.Panel1.Controls("cmd" & myValue).Enabled = True

     M_MyMenuBindingSource.MoveNext()
 Next

ボタンを押されたとき実行する部分
Dim strPath As String

M_MyMenuBindingSource.Filter = "ID = " & prgId
strPath = M_MyMenuBindingSource.Current("Path1")

If prgId <= 9 Then
    Call Shell(strPath, AppWinStyle.NormalFocus)
End If

If prgId > 9 Then
    Call Shell("Explorer " & strPath, AppWinStyle.NormalFocus)
End If

M_MyMenuBindingSource.RemoveFilter()

こんな感じで作っています。
うまくいったのでPanal1 Panal2を作って　１にはボタン５個　２にはボタン５０個
１のボタンにより２のボタンの中身がかわるものを作ります。　合計２５０個の中身
がこれでつくれます。