如何在文本框内显示命令按钮，让他在文本框的右下角显示！

Question

如何在文本框内显示命令按钮，让他在文本框的右下角显示！我需要在文本框内获得焦点时，显示命令按钮，以便我从其他窗体中传递数据，如何在文本框内显示命令按钮，让他在文本框的右下角显示！
这时我该如何设置？代码该如何写？谢谢！

Answer 1

sub form_load()
  command3.visible=false
end sub Private Sub Text1_GotFocus()
Command3.Top = Text1.Top + (Text1.Height - Command3.Height)
Command3.Left = Text1.Left + (Text1.Width - Command3.Width)
Command3.Visible = True
Command3.ZOrder 0
End Sub

Answer 2

问题又来了，因为命令按钮是在文本框得到焦点时显示的，当我把焦点移走，因为有这一句
Private Sub Text1_LostFocus()
Command3.Visible = False
End Sub命令按钮也立即消失了，你说晕不晕啊！
反而命令按钮变得我点击不到他了，怎么办？

Answer 3

那你考虑一下不要在lostfocus里让它不可见你的command的用途是从其他窗体中传递数据可以等其他窗体传完数据了让 你的form.command3.visible=false或者让command点击的同时消失

Answer 4

Command3.Visible = False不要写在Text1_LostFocus事件中，而是写在Command3_Click事件中不就行了吗？