No declarations

'Double click cell to edit 'Shift click to add new row 'Ctrl click to reove row 'Requirement MsFlexGrid Private Sub Flex1_DblClick() Text1.Text = Flex1.Text Text1.Left = Flex1.Left + Flex1.CellLeft Text1.Top = Flex1.Top + Flex1.CellTop Text1.Height = Flex1.CellHeight Text1.Width = Flex1.CellWidth Text1.Visible = True Text1.SetFocus End Sub Private Sub Flex1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 And Shift = 1 Then Flex1.Rows = Flex1.Rows + 1 End If If Button = 1 And Shift = 2 Then If Flex1.Rows > 2 Then If MsgBox("Remove this row?", vbYesNo) = vbYes Then Flex1.RemoveItem (Flex1.row) End If Else MsgBox "Cannot delete row" End If End If End Sub Private Sub Form_Load() Dim ctr As Integer For ctr = 0 To 5 FlexXY Flex1, ctr, 0, "Column" + Str(ctr) Next End Sub Private Sub FlexXY(flex As MSFlexGrid, col As Integer, row As Integer, txt As String) flex.col = col flex.row = row flex.Text = txt End Sub Private Sub Text1_Validate(Cancel As Boolean) Flex1.Text = Text1.Text Flex1.SetFocus Text1.Visible = False End Sub