你可以尝试不同的方法。定义一个布尔变量来控制颜色的变化，至于那个定时器，只要让它连续运行就行了。

Dim IsRunning As Boolean = False

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    If Not IsRunning Then Exit Sub

    Label1.BackColor = IIf(Label1.BackColor = Color.Gold, Color.White, Color.Gold)

End Sub

Private Sub btnICMP_Click(sender As Object, e As EventArgs) Handles btnICMP.Click
    IsRunning = Not IsRunning
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Start()
End Sub

Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    Timer1.Stop()
End Sub

Imports System.Reflection.Emit
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.TaskbarClock

Public Class Form1
    Dim time As Integer
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Time = 1 Then
            Label1.BackColor = Color.Gold
        ElseIf Time = 2 Then
            Label1.BackColor = Color.White
            time = 0
        End If
        time = time + 1

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Stop()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub
End Class

如果修复了这个问题，您的代码应该可以工作，Label1.Color =。这个可以

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Static time As Integer = 1
    If time = 1 Then
        Label1.BackColor = Color.Gold '<<<<<
    ElseIf time = 2 Then
        Label1.BackColor = Color.White '<<<<<
        time = 0
    End If
    time = time + 1
End Sub

Private Sub btnStopICMP_Click(sender As Object, e As EventArgs) Handles btnStopICMP.Click
    ' either works
    'Timer1.Enabled = False
    Timer1.Stop()
End Sub