Visual Basic

Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DoubleClick
   Dim dvRow as DataRowView = Me.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Current
   Dim dRow as DataRow = dvRow.Row

   MsgBox("dRow Primary Key: " & dRow.item("Key"))
End Sub

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyDrive As DriveInfo = New DriveInfo("A")
        Dim MyFile As FileInfo = New FileInfo("C:\boot.ini")
        If MyDrive.AvailableFreeSpace >= MyFile.Length Then
            FileCopy(MyFile.FullName, _
                     MyDrive.RootDirectory.ToString() + MyFile.Name)
        End If
    End Sub
End Class

<br />
TextBox1.SelectionStart= TextBox1.Text.Length<br />
TextBox1.Focus()<br />

With txtLogin
    .SelStart = 0
    .SelLength = Len(.Text)
    .SetFocus
End With

<br />
With txtLogin<br />
    .SelLength = 0<br />
    .SelStart = len(.Text)<br />
    .SetFocus<br />
End with<br />

Option Explicit On
Option Strict On

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        For Each str As String In TestFunction()
            MessageBox.Show(str)
        Next
    End Sub

    Private Function TestFunction() As String()
        Dim ReturnArray(1) As String
        ReturnArray(0) = "TestString"
        ReturnArray(1) = "Another String"
        TestFunction = ReturnArray
    End Function
End Class