Question

VB程序中单击LABEL产生一个事件，怎么实现第二次点击产生另一个不同的事件

事件2是事件1发生后才发生的
事件1改变一个TextBox里中内容 ，事件2也是改变这个TextBox中的内容，
现在需要单击第一次 这个Label的位置变化，并且改变了TextBox中的内容，然后在这个Label移动后再次单击它，再次移动这个移动Label位置，并且改变TextBox中的内容，2次过程需要看到中间过程

Answer 1

设置一个变量比如a dim a as string
a=1
--------------全局-----------------
label点击事件里写 select case a
判断a的值若等于1则执行 case 1
等于2则执行。。。。。 case 2
a=a+1

Answer 2

private sub label1_click()
static Flag as boolen
flag=not(falg)
if flag=true the
'事件1
else then
'事件2
end if
end sub

追问

事件2 是要在事情1发生后才发生的 忘了这个重点...

追答

private sub label1_click()
static Flag as boolen,M as boolen
flag=not(falg)
if flag=true the
'事件1
m=true
else
if m=true then
'事件2
endif
end if
end sub