VB BC30516错误代码

Question

您好我的VB出了问题，而且我很新，只是得到了这个错误代码，我不知道该怎么做

错误

  

BC30516重载解析失败，因为没有可访问的'Text'接受此数量的参数。

这是我的代码

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If TextBox1.Text = 1 Then
        TextBox2.Text("Tag ikke afsted")

    End If

    If TextBox1.Text = 2 Then
        TextBox2.Text("Tag ikke afsted")

    End If

    If TextBox1.Text = 3 Then
        TextBox2.Text("Tag ikke afsted")

    End If

    If TextBox1.Text = 4 Then
        TextBox2.Text("CTF 2 hold-TeamDeatchmatch Rush")

    End If

    If TextBox1.Text = 5 Then
        TextBox2.Text("CTF 2 hold-TeamDeath")

    End If

    If TextBox1.Text = 6 Then
        TextBox2.Text("CTF 3 hold-TeamDeathmatch 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 7 Then
        TextBox2.Text("CTF 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 8 Then
        TextBox2.Text("CTF 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 9 Then
        TextBox2.Text("CTF 3 hold-teamDeathmatch 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 10 Then
        TextBox2.Text("CTF 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 11 Then
        TextBox2.Text = ("CTF 3 hold-TeamDeathmatch 2 holdTeamDeathmatch")

    End If

    If TextBox1.Text = 12 Then
        TextBox2.Text = ("CTF 3 hold-TeamDeathmatch 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 13 Then
        TextBox2.Text = ("CTF 3 hold-TeamDeathmatch 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 14 Then
        TextBox2.Text = ("CTF 3 hold-TeamDeathmatch 2 hold-TeamDeathmatch")

    End If

    If TextBox1.Text = 15 Then
        TextBox2.Text = ("CTF 3 hold-TeamDeathmatch 2 hold-TeamDeathmatch")

    End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    If TextBox2.Text = ("CTF") Then
        Timer1.Start()
    End If

    If TextBox1.Text = ("3 hold-TeamDeathmatch") Then
        Timer2.Start()
    End If

    If TextBox1.Text = ("2 hold-TeamDeathmatch") Then
        Timer3.Start()
    End If

    If TextBox1.Text = ("Rush") Then
        Timer4.Start()
    End If

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ProgressBar1.Increment(50)
    If ProgressBar1.Value = 100 Then
        Timer1.Stop()
        Shell("C:\Users\lasse\hardball\2tdm.bat")
    End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    ProgressBar2.Increment(50)
    If ProgressBar2.Value = 100 Then
        Timer2.Stop()
        Shell("C:\Users\lasse\hardball\3tdm.bat")
    End If
End Sub

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
    ProgressBar3.Increment(50)
    If ProgressBar3.Value = 100 Then
        Timer3.Stop()
        Shell("C:\Users\lasse\hardball\ctf.bat")
    End If
End Sub

Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
    ProgressBar4.Increment(50)
    If ProgressBar4.Value = 100 Then
        Timer4.Stop()
        Shell("C:\Users\lasse\hardball\rush.bat")
    End If
End Sub
End Class

代码有什么问题？

以下是它的截图。

https://gyazo.com/b01cd6aea0eaf804ba9530e4ccc3fda1