CheckBox CodeSample - CheckBox with ContextMenu

Imports Gizmox.WebGui.Forms
 
Public Class Form2
    Friend WithEvents ContextMenu1 As Gizmox.WebGui.Forms.ContextMenu
    Friend WithEvents MenuItem1 As Gizmox.WebGui.Forms.MenuItem
    Friend WithEvents MenuItem2 As Gizmox.WebGui.Forms.MenuItem
    Friend WithEvents MenuItem3 As Gizmox.WebGui.Forms.MenuItem
    Friend WithEvents MenuItem4 As Gizmox.WebGui.Forms.MenuItem
    Friend WithEvents CheckBox1 As Gizmox.WebGui.Forms.CheckBox
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ContextMenu1 = New Gizmox.WebGui.Forms.ContextMenu
        Me.MenuItem1 = New Gizmox.WebGui.Forms.MenuItem
        Me.MenuItem2 = New Gizmox.WebGui.Forms.MenuItem
        Me.MenuItem3 = New Gizmox.WebGui.Forms.MenuItem
        Me.MenuItem4 = New Gizmox.WebGui.Forms.MenuItem
 
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "Do This"
        Me.MenuItem1.Tag = "This"
 
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "Do That"
        Me.MenuItem2.Tag = "That"
 
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "I'm disabled"
        Me.MenuItem3.Tag = "Disabled"
        Me.MenuItem3.Enabled = False
 
        Me.MenuItem4.Index = 3
        Me.MenuItem4.Text = "Hide me"
        Me.MenuItem4.Tag = "Hide"
 
        Me.ContextMenu1.MenuItems.AddRange(New Gizmox.WebGui.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
 
        Me.CheckBox1 = New Gizmox.WebGui.Forms.CheckBox
        Me.CheckBox1.Size = New System.Drawing.Point(100, 100)
        Me.CheckBox1.Text = "Right Click For Menu"
        Me.CheckBox1.ContextMenu = Me.ContextMenu1
 
        Me.Controls.Add(Me.CheckBox1)
    End Sub
 
    Private Sub CheckBox1_MenuClick(ByVal objSource As System.Object, ByVal objArgs As Gizmox.WebGui.Forms.MenuItemEventArgs) Handles CheckBox1.MenuClick
        If objArgs.MenuItem.Tag = "This" Then
            MessageBox.Show("Performing this")
        ElseIf objArgs.MenuItem.Tag = "That" Then
            MessageBox.Show("Performing that")
        ElseIf objArgs.MenuItem.Tag = "Disabled" Then
            MessageBox.Show("This should not be possible... I'm disabled")
        Else
            Me.MenuItem4.Visible = False
            Me.ContextMenu1.Update()
        End If
    End Sub
 
End Class