我想做一个小软盘。就希望当点击text时，这个软盘出现在点击的下面。按下软盘上键后数值在点击text里显示出来。本来想frame1.leftg=text1.left,frame1.top=text1.top，好象这样操作不对。请大家给的指教或提示

说实话，没有明白你说的什么意思。你可以把你的截图和代码贴出来。

frame1.leftg=text1.left,frame1.top=text1.top+text1.height
这种做地问题出在哪里？

frame1.leftg=text1.left,frame1.top=text1.top+text1.height
是这行代码报错吗？

先分成二行来写吧。
frame1.leftg=text1.left
frame1.top=text1.top+text1.height

有text的10个相同的输入框，分别为text1(0)到text1(9），我单击任何一个text时，frame容器会在相应的text下面。

不好意思，我一楼的写的多了一个字母g。
frame1.left=text1.left
frame1.top=text1.top
实际应该是样的

Private Sub Text1_click(Index As Integer)
Dim i As Integer

For i = 0 To Index - 1
Frame1.Left = Text1(i).Left
Frame1.Top = Text1(i).Top + Text1(i).Height
Next
End Sub
这样代码好象用了

[此贴子已经被作者于2016-4-7 17:10编辑过]

下面又遇到问题，怎样把打开的frame（软键盘）的输入到点击的text里，比如点击text1(0)，数据就是输入到text1(0),当点击text1(5)时，就输入到text1(5)里？请大师指点

测试代码，你自己琢磨吧

Dim i As Long, s As String

i = Text1.SelStart              '取光标位置
s = Text1.Text                  '取内容

If Len(s) = i Then              '光标是不是在最后
    s = s & "A"                 '如果是，直接加到最后
Else
    s = Left(s, i) & "A" & Mid(s, i + 1)    '否则插到中间
End If
    Text1.Text = s              '给值
    Text1.SelStart = i + 1      '恢复光标位置

当某个TEXT 得到焦点里，要么保存这个对象，要么保存这个下标。