嗨，我可以加价，但我不能加价

Question

Private Sub ComboBox1_SelectedIndexChanged（作为对象发送，作为EventArgs发送）处理ComboBox1.SelectedIndexChanged

    If ComboBox1.SelectedIndex = 0 Then
        sword.Visible = True
    End If
    If ComboBox1.SelectedIndex = 1 Then
        sword.Visible = False
    End If
    If ComboBox1.SelectedIndex = 1 Then
        pickaxe.Visible = True
    End If
    If ComboBox1.SelectedIndex = 0 Then
        pickaxe.Visible = False
    End If
    If ComboBox1.SelectedIndex = 2 Then
        mace.Visible = True
    End If
    If ComboBox1.SelectedIndex = 0 Then
        mace.Visible = False
    End If
    If ComboBox1.SelectedIndex = 3 Then
        cutlass.Visible = True
    End If
    If ComboBox1.SelectedIndex = 0 Then
        cutlass.Visible = False
    End If
End Sub