请问如何给VB文本框都加上Ctrl+A的功能

上个截图 你要达到什么效果 有点没看懂

好像只能每个文本框分别写代码，我也想知道有没有更简单的办法
另外注意，KeyCode和KeyAscii不一样，字母键的KeyCode对应的是大写字母的ASCII码，而小写字母的ASCII码跟小键盘区和功能键区（F1、F2等）的KeyCode是对应的，比如小写a的ASCII码97对应的是小键盘数字1的KeyCode，所以你那个KeyDown的代码按Ctrl和小键盘的1也会全选

给我感觉 这个不是要做vb版的记事本吧

楼上那个代码 我有点没看懂 两个文本框 怎么用 如果焦点光标在文本框1 按下ctrl+a 只有文本框1的内容被选中 文本框2一点反应都没有

'模块代码，名字modTextBox.bas
Attribute VB_Name = "modTextBox"
'原作者：VB吧隨風缒夢
Option Explicit
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'全选
Public Sub SelectAll()
Dim hWndChild As Long
Dim strClassName As String
hWndChild = GetFocus() '得到当前有焦点的窗口句柄
strClassName = Space$(100)
Call GetClassName(hWndChild, strClassName, 100) '得到控件类名
If InStr(strClassName, "TextBox") Then '匹配控件类名(编译后类名会加上RT6)
Call SendMessage(hWndChild, &HB1, 0, ByVal -1&)
End If
End Sub
'窗体代码中加上下面这些代码就可以了
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And Shift = vbCtrlMask Then Call modTextBox.SelectAll
End Sub

鲁主的需求是一次性给所有文本框加上全选功能，不是txt1.全选功能，再txt2.全选功能。。。。。更不是在txt1中按^A同时选定txt1,txt2,txt3的内容。