Button CodeSample - 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 Button1 As Gizmox.WebGui.Forms.Button
    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.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.ContextMenu1.MenuItems.AddRange(New Gizmox.WebGui.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2})
 
        Me.Button1 = New Gizmox.WebGui.Forms.Button
        Me.Button1.Size = New System.Drawing.Point(100, 100)
        Me.Button1.Text = "Right Click Form Menu"
        Me.Button1.ContextMenu = Me.ContextMenu1
 
        Me.Controls.Add(Me.Button1)
    End Sub
 
    Private Sub Button1_MenuClick(ByVal objSource As System.Object, _
                                  ByVal objArgs As Gizmox.WebGui.Forms.MenuItemEventArgs) _
                                  Handles Button1.MenuClick
        If objArgs.MenuItem.Tag = "This" Then
            MessageBox.Show("Performing this")
        Else
            MessageBox.Show("Performing that")
        End If
    End Sub
 
End Class