Visual Basic

Do you want to know more?

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 />