再请教二个问题。
    问题一：在一个程序中，我想实现一个鼠标移动功能。其设想是：Label1控件正常显示。Label2控件设置为透明，并附着在Label2的上面。当鼠标移动到Label2时，实现移动功能，显示相关内容。我作了好长时间，不能有效实现其功能。代码如下，请各位大师给纠正一下，问题出在什么地方。
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
      Label2.Visible = False
    End Sub
    Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
      Label2.Caption = "伟大的中国共产党万岁！中华人民共和国万岁！"
        Label2.Visible = True
    End Sub
    问题二：关于日期控件方面的问题。如果1代表1年；2代表2年；3代表3年。请问2009年1月1日加1年或是2年或是3年，分别加在年份上，应该怎么作呢？
    谢谢！！！

[FIELDSET][LEGEND]引自：楼主[/LEGEND]
    我想在工程中使用选项卡控件，并在控件中添加一些其他控件。《VB从入门到精通》一书对这个问题只作了很少的介绍，只是说：“在设计时，要在某一选项卡页中添加控件，首先要单击该选项卡选中它，然后在该选项卡页中添加所需控件。”
    但我试着作了一下，也选不中啊，也添加不了其他控件。请各位大师指导一下，怎么作。
    谢谢！！！！！！！！！！！！！！！！！！
[/FIELDSET]

回复：
  使用SSTab控件可以实现。

[FIELDSET][LEGEND]引自：1楼[/LEGEND]
    再请教二个问题。
    问题一：在一个程序中，我想实现一个鼠标移动功能。其设想是：Label1控件正常显示。Label2控件设置为透明，并附着在Label2的上面。当鼠标移动到Label2时，实现移动功能，显示相关内容。我作了好长时间，不能有效实现其功能。代码如下，请各位大师给纠正一下，问题出在什么地方。
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
      Label2.Visible = False
    End Sub
    Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
      Label2.Caption = "伟大的中国共产党万岁！中华人民共和国万岁！"
        Label2.Visible = True
    End Sub
    问题二：关于日期控件方面的问题。如果1代表1年；2代表2年；3代表3年。请问2009年1月1日加1年或是2年或是3年，分别加在年份上，应该怎么作呢？
    谢谢！！！
[/FIELDSET]

回复：
  
问题1回复：要合理设置Lable控件ZOrder属性，如Label1前置：Label1.ZOrder 0

问题2回复：加一年：DTPicker1.Year = DTPicker1.Year + 1；两年:DTPicker1.Year = DTPicker1.Year + 2 .......

多谢大师：    
    关于选项卡的问题：是这样，我在看书的时候马虎了，没有看到“SSTab”控件还得在“部件”中添加，把工具栏中的“Tabstrip”当成“SSTab”控件用了，当然不行了。这回我找到并添加了。
    关于Label控件的问题由于中中午时间短，晚上下班再作一下看看。
    关于日期中加年的问题：已经可以实现了。
    但还有点问题：
Private Sub DTP1_Change()
  DTP2.Year = DTP1.Value + Val(Text1.Text)
End Sub
Private Sub text1_Change()
  DTP2.Year = DTP1.Year + Val(Text1.Text)
End Sub
我想用comboBox控件替代TextBox控件。在comboBox控件中填写“3”、“2”、“1”。当选择“3”时自动相加。请问这里comboBox得用什么属性？
    

您好：使用List属性
      

楼上的大师：
    你说的用“List属性”。但我试了一下，还是有点问题。
Private Sub DTP1_Change()
  DTP2.Year = DTP1.Year + Val(Combo1.List)
End Sub
Private Sub Combo1_Change()
  DTP2.Year = DTP1.Year + Val(Combo1.List)
 End Sub
也不起作用啊，是不是还要用到什么事件或方法呀？请再指教一下
谢谢！！！！！！！！！！！！！！！1

[FIELDSET][LEGEND]引自：6楼[/LEGEND]
楼上的大师：
    你说的用“List属性”。但我试了一下，还是有点问题。
Private Sub DTP1_Change()
  DTP2.Year = DTP1.Year + Val(Combo1.List)
End Sub
Private Sub Combo1_Change()
  DTP2.Year = DTP1.Year + Val(Combo1.List)
 End Sub
也不起作用啊，是不是还要用到什么事件或方法呀？请再指教一下
谢谢！！！！！！！！！！！！！！！1
[/FIELDSET]

回复：

回复：
将代码放置在Combox控件的Click事件中，并且
DTP2.Year = DTP1.Year + Val(Combo1.List)改为：
DTP2.Year = DTP1.Year + Val(Combo1.Text)或者
DTP2.Year = DTP1.Year + Val(Combo1.List(Combo.ListIndex))
  

谢谢各位大师！！！
    自从开始学习VB以来，得到了各位大师很多的帮助，特别是vbsoldier的帮助最多，还有许多大师也给了我很多的帮助。我正在一边学习，一边作一个小程序，95%的工程已经作好的，只还差往一起组合了，这几天我提问的问题都是我想解决的，买了你们的书真值，售后服务很好。我想在作完我的小程序后，再巩固一下，然后再买几本你们公司出的书，多学一些知识，充实一下工作、生活，拓展一下知识面。
    再次表示感谢！！！！！！！！！！！！！！！

多谢vbsoldier大师：
    前面提出的关于“鼠标移动功能”问题，在你的指导下，我已经实现了，效果很好。代码如下：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
Label2.ZOrder 0
Label3.Visible = False
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
Label3.Caption = "伟大的中国共产党万岁！中华人民共和国万岁！"
Label3.Width = 2000: Label3.Height = 800
Label2.ZOrder 1
Label3.Visible = True
End Sub
再次表示感谢！！！！！！！！！！！！！！1