C# と VB.NET の質問掲示板

Win10 64bit・VB 2017を使っています。
以下のようにして、処理の中でToolStripMenuItemのDropDownItemsにメニューを追加しているのですが、TestToolStripMenuItemをクリックすると、メニューが縦に画面いっぱいにズラッと表示されるのを防ぎたいのです。
このドロップダウンの高さを調節する方法はないでしょうか。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim test(100) As ToolStripMenuItem

        'ダミーデータの作成
        For I = 0 To 100
            test(I) = New ToolStripMenuItem
            test(I).Text = CStr(I)
            TestToolStripMenuItem.DropDownItems.Add(test(I))
        Next
    End Sub
End Class

WebSurfer さん
そうですね、気を付けます。

Azulean さん
確かに数が多いと大変ですね。
メニュー以外に表示する方法を検討してみます。

shu さん
リストボックスも良さそうですね。


質問の件は以下のような方法で実現できました。
ご回答ありがとうございました。

    Dim CMenuStrip As ContextMenuStrip
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        CMenuStrip = New ContextMenuStrip

        'ダミーデータの作成
        For I = 0 To 100
            CMenuStrip.Items.Add(CStr(I))
        Next

        CMenuStrip.MaximumSize = New Size(300, 600)
    End Sub
    Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click
        CMenuStrip.Show(Me, Me.PointToClient(Control.MousePosition))
    End Sub