Private Sub VSGed_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtP.Text = VSGed.RowSel
End Sub

Private Sub VSGed_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtS.Text = VSGed.RowSel
End Sub


Private Sub cmdKill_Click()
Dim sMsg As String
Dim nButtons As Integer
Dim nResult As Integer
Dim n As Integer
sMsg = "Really want to remove the Chosen lines ???"
nButtons = vbYesNo + vbQuestion
nResult = MsgBox(sMsg, nButtons, "Atention !!! ")
If nResult = vbNo Then Exit Sub
If nResult = vbYes Then
    End If
    
For n = Val(txtP.Text) To Val(txtS.Text)
Mstring = "k " & Piece(VSGed.Cell(flexcpText, n,  0 ), "=",  1 )
m.Xecute Mstring
VSGed.Cell(flexcpText, n,  0 , ,  1 ) = ""
Next n

End Sub