如上图，请问如何才能实现点击增加按钮后，在文本框中出现“关心点1”，再点增加又出现“关心点2”，以此类推；同时，在右边的关心点数目中的名称显示相应的项目，点击“关心点1”，则显示关心点1，输入相应的x、y坐标，再点“关心点2”，则显示关心点2，输入相应的x、y坐标。
然后，选择某个关心点，选中“关心点2”，再点删除就可以删除掉。

请问以上的功能如何才能用程序控制实现？ 或者有什么其他的方法可以代替实现？

怎么没有人回答啊？请各位帮帮忙吧

第一个问题：
全局定义：private Count as integer

单击“增加”按钮：
dim Msg as string

msg=text1
Count=Count+1

msg=msg & "关心点" & Count & vbcrlf
text1=msg

'''''右边的文本框显示
Text2="关心点" & Count

[此贴子已经被作者于2007-2-8 13:01:59编辑过]

最好使用List控件，增加和删除更好操作。

CmdAdd_Click()
Dim Msg as String

Msg="关心点" & List1.Count +1
List1.Additem Msg

Text2=Msg
End Sub

CmdDel_Click()
List1.ReMove List1.ListIndex
Text2=""
End Sub

''''单击LIst1时，在Text2中显示内容：
List1_Click()
Text2=List1.List(List1.List1Index)
End Sub