Private Sub delBtn_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles AeBtn.Click, delBtn.Click
        With myDataSet
            If pos > 0 Then
                For I As Integer = pos - 1 To 0 Step -1
                    .Tables("GPS").Rows(pos).Delete()
                Next
            End If
        End With
 
    End Sub