Option Explicit Rem Developer P.B.C.G.Fernando Rem Comments Get The Idea From This Code And Modify According To Your Way. Rem More Mail Me gehan_g7@yahoo.com / charith_c7@yahoo.co.uk Rem If You Have Idea Mail Me. Add MSFlex Grid Control And Add TextBox Control On To MS Flex

Private Sub Form_Load() With MSFlexGrid1 .Row = 0 .Col = 0 .ColWidth(0) = 100 .Col = 1 .ColWidth(1) = 4500 .CellFontBold = True .ColAlignment(1) = flexAlignLeftBottom .Text = "Student Name" .Col = 2 .ColWidth(2) = 1000 .CellFontBold = True .ColAlignment(2) = flexAlignCenterBottom .Text = "Class No" .Col = 3 .ColWidth(3) = 1000 .CellFontBold = True .ColAlignment(3) = flexAlignCenterBottom .Text = "Duration" .Col = 4 .ColWidth(4) = 1500 .CellFontBold = True .ColAlignment(4) = flexAlignLeftBottom .Text = "Remarks" .Col = 1 .Row = 1 .Refresh Call MSFlexGrid1_EnterCell End With End Sub Private Sub MoveText() With Text1 .Visible = True .Left = MSFlexGrid1.Left + MSFlexGrid1.CellLeft .Top = MSFlexGrid1.Top + MSFlexGrid1.CellTop .Width = MSFlexGrid1.CellWidth .Height = MSFlexGrid1.CellHeight .SetFocus .Refresh End With End Sub Private Sub MSFlexGrid1_EnterCell() On Error Resume Next Call MoveText Text1.Text = MSFlexGrid1.Text Text1.SetFocus End Sub Private Sub MSFlexGrid1_LeaveCell() On Error Resume Next If MSFlexGrid1.Row > 0 Then Call MoveText MSFlexGrid1.Text = Text1.Text End If End Sub Private Sub Text1_DblClick() If MSFlexGrid1.Rows = 2 Then MSFlexGrid1.Rows = 1 MSFlexGrid1.Rows = 100 Else MSFlexGrid1.RemoveItem MSFlexGrid1.Row End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Select Case MSFlexGrid1.Col Case 0: Exit Sub Case 1: If KeyCode = vbKeyLeft Then Exit Sub ElseIf KeyCode = vbKeyRight Then MSFlexGrid1.Col = MSFlexGrid1.Col + 1 Call MoveText ElseIf KeyCode = vbKeyDown Then If MSFlexGrid1.Row = 99 Then Exit Sub Else MSFlexGrid1.Row = MSFlexGrid1.Row + 1 Call MoveText End If ElseIf KeyCode = vbKeyUp Then If MSFlexGrid1.Row = 1 Then Exit Sub Else MSFlexGrid1.Row = MSFlexGrid1.Row - 1 Call MoveText End If End If Case 2 To 4: If KeyCode = vbKeyLeft Then MSFlexGrid1.Col = MSFlexGrid1.Col - 1 Call MoveText ElseIf KeyCode = vbKeyRight Then MSFlexGrid1.Col = MSFlexGrid1.Col + 1 Call MoveText ElseIf KeyCode = vbKeyDown Then If MSFlexGrid1.Row = 99 Then Exit Sub Else MSFlexGrid1.Row = MSFlexGrid1.Row + 1 Call MoveText End If ElseIf KeyCode = vbKeyUp Then If MSFlexGrid1.Row = 1 Then Exit Sub Else MSFlexGrid1.Row = MSFlexGrid1.Row - 1 Call MoveText End If End If End Select End Sub