Public DivisionId As String
Public RecNo As Integer
Private Sub dgv_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellDoubleClick
If dgv.Rows.Count = 0 Then Exit Sub
With dgv
DivisionId = GetString(.Rows(e.RowIndex).Cells(0).Value.ToString)
RecNo = e.RowIndex
Me.Dispose()
End With
End Sub
Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
dgv_CellDoubleClick(sender, e)
End Sub