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