在程序最开头。或者模块中申明一个全局变量
创新互联专注于企业营销型网站建设、网站重做改版、汝南网站定制设计、自适应品牌网站建设、成都h5网站建设、商城网站定制开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为汝南等各大城市提供网站开发制作服务。
Dim a as long
'按钮名称为Command1
Private Command_Click()
a=a+1
msgbox a '本行是查看是否成功加1。测试成功。即可去掉。
End Sub
您好，请调用AddDays函数！
给个小例子：给DateTimePicker1控件的日期的天数加1 。则是这样！
DateTimePicker1.Value = DateTimePicker1.Value.AddDays(1)
有问题HI我！
VB可在按钮的Click事件中用Static语句声明一个变量或在窗体的通用模块中声明变量。
Static 语句，在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用 Static 语句声明的变量的值。
模块的代码开始运行后，使用
Static 语句声明的变量会一直保持其值，直至该模块复位或重新启动。可以在非静态的过程中使用 Static
语句显式声明只在该过程内可见，但具有与包含该过程定义的模块相同生命期的变量。
Statlc语句代码实例：
Private Sub Command1_Click()
Static i As Long
i = i + 1
Text1 = i
End Sub
窗体的通用模块代码实例：
Option Explicit
Dim i As Long
Private Sub Command1_Click()
i = i + 1
Text1 = i
End Sub
注意后者在窗体的生命期内，该值变量始终保持按钮事件改变的值。
vb里没有自增运算符，只能用赋值语句：
x=x+1
在for……next循环中，如果没有指定步长（step），循环变量自动自增1，无需另外语句。
而在其他场合，使用上述赋值语句即可。
dim a as integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = a + 1
Label1.Text = a.ToString
End Sub
楼上的代码里面num应该在click事件外定义，否则每次单击时num的值都会重新定义