Private Sub btncal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncal.Click
_cal += Me.DataG.CurrentRow.Cells(2).Value * Me.txtcal.Text
Me.lblcal.Text = _cal
End Sub
Private Sub DataG_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataG.CellClick
_cal += Me.DataG.CurrentRow.Cells(2).Value * Me.txtcal.Text
Me.lblcal.Text = _cal
End Sub