DevExpress-Gridview(RowHeader Number)

    Private Sub GridView1_CustomDrawRowIndicator1(sender As Object, e As RowIndicatorCustomDrawEventArgs) Handles GridView1.CustomDrawRowIndicator
        If e.Info.IsRowIndicator AndAlso e.RowHandle >= 0 Then
            e.Info.DisplayText = e.RowHandle + 1 '.ToString
            Dim tSizeF As SizeF = e.Graphics.MeasureString(e.Info.DisplayText, e.Appearance.Font)
            Dim requiredWidth As Integer = Convert.ToInt32(tSizeF.Width) + 16
            Me.BeginInvoke(CType(Function() AnonymousMethod1(requiredWidth), MethodInvoker))
        End If
    End Sub
'----------------------------------
Private Function AnonymousMethod1(ByVal requiredWidth As Integer) As Boolean
        GridView1.IndicatorWidth = If(GridView1.IndicatorWidth < requiredWidth, requiredWidth, GridView1.IndicatorWidth)
        Return True
 End Function