Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
        If Keys.Enter Then
            Dim _Dt As DataTable = Me.DataGridView1.DataSource
            If _Dt IsNot Nothing Then
                Dim _NewRow As System.Data.DataRow = _Dt.NewRow
                _Dt.Rows.Add(_NewRow)
                Me.DataGridView1.DataSource = _Dt
 
                _NewRow = Nothing
                _Dt.Dispose()
                _Dt = Nothing
 
            End If
 
        End If
    End Sub