Cambiar el valor en un ComboBox y asignarlo a la barra de título

Private Sub cbdte_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbdte.SelectedValueChanged
        Me.Text = cbdte.SelectedItem
    End Sub