you could add a handler for all the textboxes , then use SelectAll() , eg:
VB Code:
  1. [Color=Blue]Private[/color] [Color=Blue]WithEvents[/color] tb [Color=Blue]As[/color] TextBox
  2.  
  3.     [Color=Blue]Private[/color] [Color=Blue]Sub[/color] Form1_Load([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] System.Object, [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.EventArgs) [Color=Blue]Handles[/color] [Color=Blue]MyBase[/color].Load
  4.         [Color=Blue]Dim[/color] ctl [Color=Blue]As[/color] Control
  5.         [Color=Blue]For[/color] [Color=Blue]Each[/color] ctl [Color=Blue]In[/color] [Color=Blue]Me[/color].Controls
  6.             [Color=Blue]If[/color] [Color=Blue]TypeOf[/color] ctl [Color=Blue]Is[/color] TextBox [Color=Blue]Then
  7. [/color]                [Color=Blue]AddHandler[/color] ctl.Enter, [Color=Blue]AddressOf[/color] tb_Enter
  8.             [Color=Blue]End[/color] [Color=Blue]If
  9. [/color]        [Color=Blue]Next
  10. [/color]    [Color=Blue]End[/color] [Color=Blue]Sub
  11.  
  12. [/color]    [Color=Blue]Private[/color] [Color=Blue]Sub[/color] tb_Enter([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] [Color=Blue]Object[/color], [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.EventArgs) [Color=Blue]Handles[/color] tb.Enter
  13.         [Color=Blue]Dim[/color] txtbox [Color=Blue]As[/color] TextBox = [Color=Blue]DirectCast[/color](sender, TextBox)
  14.         txtbox.SelectAll()
  15.     [Color=Blue]End[/color] [Color=Blue]Sub[/color]