D1.text编译错误，提示未找到方法或成员，这是为什么？
文本框分布及命名如下
文本框命名如下
a1  b1  c1   d1
a2  b2  c2    d2
。。。。。。
现在要焦点顺序为先行后列，即a1到b1到c1到d1到a2到b2到c2到d2。。。。。
每个写太麻烦，有什么简便的方法？

[此贴子已经被作者于2018-4-27 11:03编辑过]

原来是一个数组文本框，要加入序号，
焦点转移有什么好办法，继续求助中

按件数组元素按你所需要排列顺序排列好来。

if 按键=13 then            '等于回车键
  if index<txt.count-1 then
      txt(index+1)   给焦点
  else
      txt(0)    给焦点
  end if
end if

大体上描述就是这样的，自己替换成代码。

D1.text编译错误是因为D1是控件数组，改成a = Form1.D1(Index)就没问题了。
至于按焦点顺序输入很容易做到，我一般通过sendkeys发tab键消息。

D1-D30均是单独的文本框，搞不清为什么要设置下标？你的意图是什么？
如果你需要数组控件，那么D1-D30的名称必须要一致，比如均修改为 D1，这样就按数组控件处理：
    For I = 0 To 29
        D1(I).Text = (I + 1) * 2
    Next I
如果不需要数组控件，将下标删除(因为这个下标没有任何意义)，那么文本框赋值必须是一个一个赋值：
     D1.Text = 2
     D2.Text = 4
     D3.Text = 8
.......................
     D30.Text = 8192

谢谢大家，没用过数组控件，所以卡壳了