DataGridView CodeSample - Population of DataGridViewLinkColumn without a DataSource

Imports Gizmox.WebGUI.Forms
Public Class PopulateLinkColumn
 
    Sub New()
 
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        CreateDataGridView()
    End Sub
 
    Private Sub PopulateLinkColumn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.Rows.Add(2)
        CType(DataGridView1.Rows(0).Cells(0), DataGridViewLinkCell).Value = "http://www.visualwebgui.com"
        CType(DataGridView1.Rows(1).Cells(0), DataGridViewLinkCell).Value = "http://www.google.com"
 
    End Sub
 
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As Gizmox.WebGUI.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.ColumnIndex = 0 AndAlso e.RowIndex >= 0 AndAlso e.RowIndex < 2 Then
            Link.Open(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)
        End If
    End Sub
 
    Friend WithEvents DataGridView1 As Gizmox.WebGUI.Forms.DataGridView
    Friend WithEvents DataGridViewLinkColumn1 As Gizmox.WebGUI.Forms.DataGridViewLinkColumn
 
    Private Sub CreateDataGridView()
        Me.DataGridView1 = New Gizmox.WebGUI.Forms.DataGridView
        Me.DataGridViewLinkColumn1 = New Gizmox.WebGUI.Forms.DataGridViewLinkColumn
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'DataGridView1
        '
        Me.DataGridView1.BorderStyle = Gizmox.WebGUI.Forms.BorderStyle.FixedSingle
        Me.DataGridView1.Columns.AddRange(New Gizmox.WebGUI.Forms.DataGridViewColumn() {Me.DataGridViewLinkColumn1})
        Me.DataGridView1.Location = New System.Drawing.Point(12, 12)
        Me.DataGridView1.Name = "DataGridView1"
        Me.DataGridView1.RowHeadersWidth = 50
        Me.DataGridView1.Size = New System.Drawing.Size(245, 150)
        Me.DataGridView1.TabIndex = 0
        Me.DataGridView1.TotalItems = 1
        '
        'DataGridViewLinkColumn1
        '
        Me.DataGridViewLinkColumn1.AutoSizeMode = Gizmox.WebGUI.Forms.DataGridViewAutoSizeColumnMode.NotSet
        Me.DataGridViewLinkColumn1.DefaultHeaderCellType = GetType(Gizmox.WebGUI.Forms.DataGridViewColumnHeaderCell)
        Me.DataGridViewLinkColumn1.LinkBehavior = Gizmox.WebGUI.Forms.LinkBehavior.SystemDefault
        Me.DataGridViewLinkColumn1.Name = "DataGridViewLinkColumn1"
        Me.DataGridViewLinkColumn1.Resizable = Gizmox.WebGUI.Forms.DataGridViewTriState.[True]
        Me.DataGridViewLinkColumn1.SortMode = Gizmox.WebGUI.Forms.DataGridViewColumnSortMode.NotSortable
        Me.DataGridViewLinkColumn1.Width = 200
 
        Me.Controls.Add(Me.DataGridView1)
 
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
 
    End Sub
End Class