Private Sub DataGridView1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
Dim v As Integer
v = e.KeyValue
If (v = 38) Then
If (_DGV1.RowCount > 0) Then
DataGridView1.AllowUserToAddRows = False
End If
End If
End Sub