ComboBox2.Items.Clear()
        Select Case ComboBox1.Text
            Case "Laptop"
                ComboBox2.Items.Add("Lenovo")
                ComboBox2.Items.Add("Asus")
                ComboBox2.Items.Add("Vaio")
            Case "Handphone"
                ComboBox2.Items.Add("Xiaomi")
                ComboBox2.Items.Add("Samsung")
                ComboBox2.Items.Add("Oppo")
        End Select
    End Sub