AJUDA PARA APLICAR A FONTE DA COMBO BOX AO TEXTO

TextBox1.Font = New Font(ComboBox1.Text, 10)

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

[txt-color=#007100][ô] Converte o objeto sender de volta a um ComboBox.[/txt-color]
Dim ComboBox1 As ComboBox = CType(sender, ComboBox)

[txt-color=#007100][ô] Recupera o item selecionado.[/txt-color]
Dim selectedString As String = CType(ComboBox1.SelectedItem, String)

[txt-color=#007100][ô] Converte-o para minúsculas.[/txt-color]
    selectedString = selectedString.ToLower()

[txt-color=#007100][ô] Declare tamanho atual.[/txt-color]
Dim currentSize As Single

    [txt-color=#0000f0]Select Case[/txt-color] selectedString

       [txt-color=#007100][ô] Se [Ô]Bigger[Ô] estiver selecionado, pega o tamanho atual
       [ô] da propriedade size e a incrementa. Reseta a font para
       [ô] o novo tamanho, usando a unidade atual.[/txt-color]
        [txt-color=#0000f0]Case[/txt-color] [txt-color=#e80000][Ô]bigger[Ô][/txt-color]
            currentSize = Label1.Font.Size
            currentSize += 2.0F
            Label1.Font = New Font(Label1.Font.Name, currentSize, _
                Label1.Font.Style, Label1.Font.Unit)

            [txt-color=#007100][ô] Se [Ô]Smaller[Ô] estiver selecionado, pega o tamanho atual, em pontos,
            [ô] e o diminui por 1.  Reseta a fonte com o novo tamanho
            [ô] em pontos.[/txt-color]
        [txt-color=#0000f0]Case[/txt-color] [txt-color=#e80000][Ô]smaller[Ô][/txt-color]
            currentSize = Label1.Font.SizeInPoints
            currentSize -= 1
            Label1.Font = New Font(Label1.Font.Name, currentSize, _
                Label1.Font.Style)
    [txt-color=#0000f0]End Select
End Sub[/txt-color]