Wobbly Menu - An Inspiration from iPhone

Imports System.Drawing
Imports System.Windows.Forms
'*******************************************************************
'
'       Copyright © 2010 Thulasee Shan
'
'*******************************************************************

''' <summary>
''' The data structure for creating menu items
''' </summary>
''' <remarks></remarks>
Public Class MenuItem

    Public Text As String
    Public TextAlign As ContentAlignment
    Public Image As Image
    Public ImageAlign As ContentAlignment
    Public BackgroundColor As Color = Color.FromArgb(255, 62, 135, 235)
    Public ForeColor As Color = Color.White
    Friend Parent As DimmableMenu
    Public Font As Font
    Public Tag As String
    Public Tooltip As String
    Public Event OnClick(ByVal e As MenuItem)

    Friend Sub New(ByVal parent As DimmableMenu, _
                    Optional ByVal text As String = "", _
                    Optional ByVal img As Image = Nothing, _
                    Optional ByVal textAlign As ContentAlignment = ContentAlignment.BottomCenter, _
                    Optional ByVal imageAlign As ContentAlignment = ContentAlignment.TopCenter)
        Me.Parent = parent
        Me.Font = parent.Font
        Me.Text = text
        Me.Image = img
        Me.TextAlign = textAlign
        Me.ImageAlign = imageAlign
    End Sub

    Friend Sub ItemClicked()
        RaiseEvent OnClick(Me)
    End Sub
End Class

Public Class MenuItems
    Inherits List(Of MenuItem)

    Private m_Parent As DimmableMenu

    Friend Sub New(ByVal parent As DimmableMenu)
        m_Parent = parent
    End Sub

    Public Function AddMenuItem(Optional ByVal text As String = "", _
                    Optional ByVal img As Image = Nothing) _
                    As MenuItem
        Dim oItem As New MenuItem(m_Parent, text, img)
        Me.Add(oItem)
        Return oItem
    End Function
End Class