VB.NET 自动计数器程序设计：实现无限制计数功能

以下是一个无限制次数的自动计数器程序设计的示例代码：

Private Sub Command1_Click()
    If Timer1.Enabled = False Then
        Timer1.Enabled = True
        Command1.Caption = '停止'
    Else
        Timer1.Enabled = False
        Command1.Caption = '启动'
    End If
End Sub

Private Sub Timer1_Timer()
    Static count As Integer
    count = count + 1
    Label1.Caption = count
End Sub

在上面的示例代码中，我们使用了一个按钮控件 (Command1) 和一个计时器控件 (Timer1)，以及一个标签控件 (Label1)。按钮控件用于启动和停止计时器，计时器控件用于控制标签控件的显示。

在按钮的点击事件 (Command1_Click) 中，我们首先判断计时器的状态。如果计时器当前是停止状态，则将其启动，并将按钮的标题设置为'停止'；如果计时器当前是启动状态，则将其停止，并将按钮的标题设置为'启动'。

在计时器的定时事件 (Timer1_Timer) 中，我们使用一个静态变量 (count) 来记录计数器的值。每次计时器触发事件时，我们将 count 加 1，并将其赋值给标签的 Caption 属性，从而实现计数器的显示。由于 count 是一个静态变量，它的值会在每次计时器触发事件时保持不变。

这样，当我们点击按钮时，就可以启动或停止计时器，并且标签中会显示相应的计数值。