Thank you for reply, I adopted second way.
I followed this tutorial creating-custom-cells (same as yours).
But I dont' understand how it exposes Click event of my GridViewTextButtonColumn class.
Here my codes:
01.PublicClassTextButtonCellElement02. InheritsGridDataCellElement03. 04. PublicSubNew(ByValcolumn AsGridViewColumn, ByValrow AsGridRowElement)05. MyBase.New(column, row)06. EndSub07. 08. Private_RadTextBoxControl AsRadTextBoxElement09. Private_RadButtonElement AsRadButtonElement10. 11. ProtectedOverridesSubCreateChildElements()12. MyBase.CreateChildElements()13. 14. _RadTextBoxControl = NewRadTextBoxElement()15. Me.Children.Add(_RadTextBoxControl)16. 17. _RadButtonElement = NewRadButtonElement18. _RadButtonElement.Text = "..."19. _RadButtonElement.Margin = NewWindows.Forms.Padding(0, 1, 3, 1)20. AddHandler_RadButtonElement.Click, AddressOf_RadButtonElement_Click21. Me.Children.Add(_RadButtonElement)22. 23. EndSub24. 25. ProtectedOverridesSubDisposeManagedResources()26. RemoveHandler_RadButtonElement.Click, AddressOf_RadButtonElement_Click27. MyBase.DisposeManagedResources()28. EndSub29. 30. ProtectedOverridesFunctionArrangeOverride(ByValfinalSize AsSizeF) AsSizeF31. IfMe.Children.Count = 2 Then32. DimprogressBarWidth AsSingle= finalSize.Width - _RadButtonElement.DesiredSize.Width33. DimprogressBarRect AsNewRectangleF(0, 0, progressBarWidth - 1, finalSize.Height)34. DimbuttonRect AsNewRectangleF(progressBarWidth + 1, 0, _RadButtonElement.DesiredSize.Width, finalSize.Height)35. Me.Children(0).Arrange(progressBarRect)36. Me.Children(1).Arrange(buttonRect)37. EndIf38. ReturnfinalSize39. EndFunction40. 41. PublicShadowsEventClick(sender AsObject, e AsEventArgs)42. PrivateSub_RadButtonElement_Click(sender AsObject, e AsEventArgs)43. RaiseEventClick(sender, e)44. EndSub45. 46. ProtectedOverridesSubSetContentCore(ByValvalue AsObject)47. IfMe.Value IsNot NothingAndAlsoMe.Value IsNot DBNull.Value Then48. Me._RadTextBoxControl.Text = CStr(Me.Value)49. EndIf50. EndSub51. 52. ProtectedOverridesReadOnlyPropertyThemeEffectiveType() AsType53. Get54. ReturnGetType(GridDataCellElement)55. EndGet56. EndProperty57. 58. PublicOverridesFunctionIsCompatible(ByValdata AsGridViewColumn, ByValcontext AsObject) AsBoolean59. ReturnTypeOfdata IsGridViewTextButtonColumn AndAlsoTypeOfcontext IsGridDataRowElement60. EndFunction61. 62.EndClass63. 64.PublicClassGridViewTextButtonColumn65. InheritsGridViewDataColumn66. PublicSubNew(ByValfieldName AsString)67. MyBase.New(fieldName)68. 69. EndSub70. 71. Private_GridViewRowInfo AsGridViewRowInfo72. PublicPropertyGridViewRowInfo() AsGridViewRowInfo73. Get74. Return_GridViewRowInfo75. EndGet76. Set(ByValvalue AsGridViewRowInfo)77. _GridViewRowInfo = value78. EndSet79. EndProperty80. 81. PublicSubClick(sender AsObject, e AsEventArgs)82. ThrowNewNotImplementedException()83. EndSub84. 85. PublicOverridesFunctionGetCellType(ByValrow AsGridViewRowInfo) AsType86. 87. IfTypeOfrow IsGridViewDataRowInfo Then88. ReturnGetType(TextButtonCellElement)89. EndIf90. ReturnMyBase.GetCellType(row)91. 92. _GridViewRowInfo = row93. EndFunction94.EndClass