Visual Basic

Private Sub dg1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg1.CellClick<br />
        If (e.ColumnIndex = 2) Then<br />
            TextBox1.Visible = True<br />
            TextBox1.Left = 42<br />
            TextBox1.Top = 19 * (Me.dg1.CurrentCell.RowIndex + 1)<br />
            <br />
            TextBox1.Height = dg1.CurrentRow.Cells(0).Size.Height<br />
            TextBox1.Width = dg1.CurrentRow.Cells(0).Size.Width<br />
        End If<br />
    End Sub

<br />
Private Sub CmdLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLoad.Click<br />
If File.Exists("log.txt") = False Then File.Create("log.txt")<br />
Dim sr As StreamReader = New StreamReader("log.txt")<br />
Dim line As String<br />
LineCounter = 0<br />
Do<br />
line = sr.ReadLine()<br />
ListBox.Items.Add(line)<br />
Loop Until line Is Nothing<br />
sr.Close()<br />
End Sub<br />

<br />
Private Sub CmdClearLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdClearLog.Click<br />
Dim ic As Integer<br />
Try<br />
ic = LB_Errors.SelectedItems.Count<br />
Do<br />
LB_Errors.Items.Remove(LB_Errors.SelectedItems.Item(ic - 1))<br />
ic -= 1<br />
Loop Until ic = 0<br />
Catch Ex As Exception<br />
MsgBox(Ex.Message)<br />
End Try<br />
End Sub<br />