Cursor Disappears in DataGrid cell, vb.net 1.1

[Mehina]

i am having a problem regarding the disappearance of the cursor in the DataGrid cell after i change the width of the column on runtime.here is a function which is being called in the Textchanged handler of the embedded Textbox of DataGrid Cell.

Private Sub UpgradeGridColu mns()
Dim colText As String
Dim currColumn As DataColumn
Dim currColStyle As DataGridTextBox Column
Dim ColumnStyle As DataGridTextBox Column
Dim ds As DataSet
Dim Graphics As Graphics = lookupMapGrid.C reateGraphics()
Dim DataTable As DataTable

ds = mLookupMapOutpu tRule.Mappings. DataSet
DataTable = ds.Tables(0)
currColumn = DataTable.Colum ns.Item(lookupM apGrid.CurrentC ell.ColumnNumbe r)

For Each ColumnStyle In mTableStyle.Gri dColumnStyles

If (Not IsDBNull(currCo lumn.ColumnName )) AndAlso ColumnStyle.Map pingName.Equals (currColumn.Col umnName) Then
colText = ColumnStyle.Tex tBox.Text.ToStr ing()
If colText Is Nothing Then Exit Sub
If (Graphics.Measu reString(colTex t, lookupMapGrid.F ont).Width > ColumnStyle.Wid th) Then

' since the column width change causes the whole text to be selected and the
'insertion point(.TextBox. SelectionStart) sets to 0 so we want to save the insertion
'point
Dim insertionPoint As Integer = ColumnStyle.Tex tBox.SelectionS tart
If insertionPoint < 0 Then Exit Sub
ColumnStyle.Wid th = CType(Graphics. MeasureString(c olText, lookupMapGrid.F ont).Width, Integer) + 5

' after width change, the whole text gets selected and we dont want that
ColumnStyle.Tex tBox.SelectionS tart = insertionPoint
ColumnStyle.Tex tBox.SelectionL ength = 0
ColumnStyle.Tex tBox.Focus()
ColumnStyle.Tex tBox.Cursor.Sho w()
ColumnStyle.Tex tBox.ScrollToCa ret()

End If

End If
Next

End Sub


does anyone have any idea whats the problem or any workaround? thanks