Private Sub ComboBox1_SelectedIndexChanged (отправитель как объект, e как 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