Visual Basic

CType(tb_Options.DropDown, ToolStripDropDownMenu).ShowImageMargin = False
CType(tb_Options.DropDown, ToolStripDropDownMenu).ShowCheckMargin = True

Private aValue as String = "Hello World!"

Public Function GetTheValue() As String

 return aValue

End Function

Public Sub DoSomething
    Dim theOtherForm as new Form1
    MessageBox(theOtherForm.GetTheValue)
End Sub

For Each theForm As Form In Application.OpenForms

    If theForm.Name = "FormOrder" Then
        MessageBox(theForm.GetSomeValue)
    End If

Next

Dim theForm as Form2 ' Note No NEW
MessageBox(theForm.GetTheValue)

If Not (e.RowIndex = -1) Then
            DataGridView1.Rows(e.RowIndex).Selected = True
        End If
        i = DataGridView1.CurrentRow.Index
        formA.TextBox1.Text = DataGridView1.Item(0, i).Value.ToString()

Public Class FormMain
    Private Sub ButtonLookup_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLookup.Click

        Dim selectForm As New FormCustomerLookup

        TextSelectedCustomer.Text = selectForm.FindCustomer

        'Finished with the dialog
        selectForm.Close()

    End Sub
End Class

Public Class FormCustomerLookup
    Private ItemHasBeenSelected = False

    Private Sub FormCustomerLookup_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        'Add 10 customer to the listbox

        For x As Integer = 0 To 9
            ListBoxCustomer.Items.Add("Customer" + x.ToString)
        Next

    End Sub

    Private Sub ButtonSelect_Click(sender As System.Object, e As System.EventArgs) Handles ButtonSelect.Click
        If ListBoxCustomer.SelectedIndices.Count > 0 Then
            ItemHasBeenSelected = True
        End If
    End Sub


    Public Function FindCustomer() As String

        'Show the form to the user
        Me.Visible = True

        Do While Not ItemHasBeenSelected
            'Keep the form waiting for the user to make their selection
            'but Don't hang the interface by using the Nasty DoEvents :)
            Application.DoEvents()
        Loop

        Me.Visible = False

        'Return the selected customer
        Return ListBoxCustomer.Items(ListBoxCustomer.SelectedIndices(0))

    End Function
End Class

Public Class FormMain

    Private WithEvents selectForm As FormCustomerLookup = Nothing

    Private Sub ButtonLookup_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLookup.Click

        selectForm = New FormCustomerLookup
        selectForm.Show()

    End Sub

    Private Sub selectForm_CustomerSelected(item As String) Handles selectForm.CustomerSelected
        TextSelectedCustomer.Text = item

        'Finished with the dialog
        selectForm.Close()
    End Sub
End Class

Public Class FormCustomerLookup

    Public Event CustomerSelected(ByVal item As String)

    Private Sub FormCustomerLookup_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        'Add 10 customer to the listbox

        For x As Integer = 0 To 9
            ListBoxCustomer.Items.Add("Customer" + x.ToString)
        Next

    End Sub

    Private Sub ButtonSelect_Click(sender As System.Object, e As System.EventArgs) Handles ButtonSelect.Click
        If ListBoxCustomer.SelectedIndices.Count > 0 Then
            RaiseEvent CustomerSelected(ListBoxCustomer.Items(ListBoxCustomer.SelectedIndices(0)))
        End If
    End Sub

End Class

If DataGridView1.SelectedRows.Count = 0 Then
    RaiseEvent CustomerSelected(DataGridView1.Item(columnindex, rowindex).Value.ToString())
End If