编译错误：子程序或函数未定义

[chenhuayao]

Private Sub txtItem_GotFocus(Index As Integer)

txtItem(Index).SelStart = 0　　＇texItem ...... ?????怎么回事？？？
txtItem(Index).SelLength = Len(txtItem(Index))
End Sub

[faysky2]

你的txtItem控件如果不是控件，不能那样写

[faysky2]

看看你的控件的名称是不是 txtItem

[chenhuayao]

是啊

[of123]

是否有“笔误”，是否有中文空格？

可以将语句重新写一遍试试。

[applekiller]

做个函数
private sub AutoSelecteText(ctr as control)
if typeof ctr is textbox then
ctr.selstart=0
ctr.sellength=len(ctr.text)
endif
end sub

调用：
Private Sub txtItem_GotFocus(Index As Integer)
AutoSelecteText txtItem(index)
End Sub

[浪子家园]

不要用关键字作控件名或变量或数组名称