ferlyz05

Public Class ListPusher
    Public Value As Object
    Public Description As String

    Public Sub New(ByVal NewValue As Object, ByVal NewDescription As String)
        Value = NewValue
        Description = NewDescription
    End Sub

    Public Overrides Function ToString() As String

ferlyz05

Public Module Example    
    Public Sub Main()
        ' Create a one-dimensional integer array. 
        Dim integers() As Integer = { 2, 4, 6, 8, 10, 12, 14, 16, 18, 20 }
        ' Get the upper and lower bound of the array. 
        Dim upper As Integer = integers.GetUpperBound(0)
        Dim lower As Integer = integers.GetLowerBound(0)
        Console.WriteLine("Elements from index {0} to {1}:", lower, upper)
        ' Iterate the array. 
        For ctr As Integer = lower To upper

ferlyz05

' Specific Cell Contents to string - (row 0, cell 0)
Dim s As String = Me.DataGridView1.Rows(0).Cells(0).Value


' Selected Cell
Dim s As String = Me.DataGridView1.SelectedCells(0).Value


' A single string containing all selected cell values
        Dim s As String = ""