Visual Basic

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

Public Class FormMain

Private WithEvents selectKlant As FormCustomerLookup = Nothing

Private Sub ButtonLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLookup.Click
        selectKlant = New FormCustomerLookup
        selectKlant.Show()

    End Sub

Private Sub selectForm_CustomerSelected(ByVal item As String) Handles selectKlant.CustomerSelected
        TextSelectedCustomer.Text = item
        selectKlant.Close()
    End Sub
End Class

Public Class FormCustomerLookup
    Public Event CustomerSelected(ByVal item As String)

Private Sub ButtonSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSelect.Click
        If DataGridView1.SelectedRows.Count = 0 Then
            RaiseEvent CustomerSelected(DataGridView1.Item(2, 1).Value.ToString())
        End If
    End Sub
End Class

selectKlant = New FormCustomerLookup
        selectKlant.Show()

sServerString = "C:\somefolder\subfolder\winproj.exe /s " & sServer