[RESOLVED] Setfocus

I am trying to get a textbox named Inkey_Text to SetFocus this is the code for reading a line in a Mshflexgrid.

I get all the info but can not setfocus

Code:

---

If Row > 36 Then Row = 36
 If Row < 1 Then
  Row = 1
 End If
 col = 1
 Assignments.col = col
 Assignments.Row = Row
 Assignments.CellAlignment = 0 ' Inkey_Text.Alignment
 'Inkey_Text.Alignment = Assignments.ColAlignment(col)
 Inkey_Text.Backcolor = vbBlack 'Assignments.Backcolor
 Inkey_Text.Forecolor = Assignments.Forecolor
 Inkey_Text.Text = Assignments.Text
 Inkey_Text.Left = Assignments.CellLeft + Assignments.Left
 Inkey_Text.Top = (Assignments.CellTop + Assignments.Top) - 20
 Inkey_Text.Font = Assignments.Font
 Inkey_Text.FontBold = Assignments.CellFontBold
 Inkey_Text.Fontname = Assignments.CellFontName
 Inkey_Text.Fontsize = Assignments.CellFontSize
 Inkey_Text.Height = Assignments.CellHeight - 50
 Inkey_Text.Width = Assignments.CellWidth
 Inkey_Text.Righttoleft = Assignments.CellAlignment
 Inkey_Text.ZOrder
' Inkey_Text.SetFocus

---