关于变量的使用问题？

[cblearn]

我在模块中定义如下
Public Class Pinfo
Public CurYear As String
Public CurMonth As String
Public CurDay As String
End Class

然后这样调用：
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pp As New Pinfo
pp.CurYear = "2004"
pp.CurMonth = "11"
End Sub



Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim pp As New Pinfo
MsgBox("当前年" + pp.CurYear)
End Sub //为什么没有显示pp.CurYear啊？
初次接触VB，还请高手赐教！

[earlsen]

public string Pinfo
set
CurYear = value
get
return this.h_CurYear
.
.
.

[JafyLiu]

Button3与Button4使用的是类的两个不同的实例，当然不会有结果啦。

[bobedong]

对，变量pp的定义和初始化，应该放到两个click事件之外。

[抬头望天边一只雁]

这样就行了。
Public shared CurYear As String
Public shared CurMonth As String
Public shared CurDay As String