اين كار با استفاده از تابغ GetKeyState امكان پذير است .



جمله Declare زير را به قسمت معرفيهاي عمومي فرم اضافه نماييد

کد:

Public Declare Function GetKeyState Lib "user32" alias "GetKeyState" (Byval NVirtkey As Long ) As Integer

ثابت زير را نيز در قسمت معرفي هاي عمومي مربوط به Form1 وارد كنيد

‍

کد:
Const VK_TAB = &H9

دو كنترل از نوع textbox بر روي فرم قرار دهيد . Text1 و text2 ايجاد مي شود.
كد زير را در رويداد Load مربوط به Form1 وارد نماييد.

کد:
Sun Form_load()
Text1.text = "Press Tab To Select The Text"
Text2.text = ""
Text2.Text = "This is a Paragraph that should be selected. "
end sub

كد زير را در رويداد GetFocus مربوط به text2 وارد نماييد.

کد:
Sub Text2_Getfocus()
Dim X as integer
X = GetKeyState(Vk_Tab)
If Getkeystate(VK_Tab) and -256 then
text2.setfocus
Text2.selstart = 0
Text2.SelLenght = Len(Text2.text)
end if
End sub

پس از اجراي برنامه نقطه تمركز بر روي Textbox اول است كليد TAB را فشار دهيد تا نقطه تمركز به سمت دومين TEXTBOX حر كت كند . در اين حالت متن درون TEXTBOX دوم به صورت اتوماتيك انتخاب مي شود.