text:
Public Class Form7

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fontenome As String
        TextBox1.Text = ""

        CheckBox1.Checked = True

        'fazendo pro p1
        fontenome = Form1.p1.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 7

        'fazendo pro p2
        fontenome = Form1.p2.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 14

        'fazendo pro p3
        fontenome = Form1.p3.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 21

        'fazendo pro p4
        fontenome = Form1.p4.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 28

        'fazendo pro p5
        fontenome = Form1.p5.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 35

        'fazendo pro p6
        fontenome = Form1.p6.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 42

        'fazendo pro p7
        fontenome = Form1.p7.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 49

        'fazendo pro p8
        fontenome = Form1.p8.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 56

        'fazendo pro p9
        fontenome = Form1.p9.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 63

        'fazendo pro p10
        fontenome = Form1.p10.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 71

        'fazendo pro p11
        fontenome = Form1.p11.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 78

        'fazendo pro p12
        fontenome = Form1.p12.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 85

        'fazendo pro p13
        fontenome = Form1.p13.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 92

        'fazendo pro p14
        fontenome = Form1.p14.Text
        If fontenome = "a" Then
            TextBox1.Text = TextBox1.Text & "ア"
        ElseIf fontenome = "ba" Then
            TextBox1.Text = TextBox1.Text & "バ"
        ElseIf fontenome = "be" Then
            TextBox1.Text = TextBox1.Text & "ベ"
        ElseIf fontenome = "bo" Then
            TextBox1.Text = TextBox1.Text & "ボ"
        ElseIf fontenome = "bu" Then
            TextBox1.Text = TextBox1.Text & "ブ"
        ElseIf fontenome = "chi" Then
            TextBox1.Text = TextBox1.Text & "チ"
        ElseIf fontenome = "da" Then
            TextBox1.Text = TextBox1.Text & "ダ"
        ElseIf fontenome = "de" Then
            TextBox1.Text = TextBox1.Text & "デ"
        ElseIf fontenome = "dji" Then
            TextBox1.Text = TextBox1.Text & "ヂ"
        ElseIf fontenome = "do" Then
            TextBox1.Text = TextBox1.Text & "ド"
        ElseIf fontenome = "dzu" Then
            TextBox1.Text = TextBox1.Text & "ヅ"
        ElseIf fontenome = "e" Then
            TextBox1.Text = TextBox1.Text & "エ"
        ElseIf fontenome = "fa" Then
            TextBox1.Text = TextBox1.Text & "ファ"
        ElseIf fontenome = "fe" Then
            TextBox1.Text = TextBox1.Text & "フェ"
        ElseIf fontenome = "fi" Then
            TextBox1.Text = TextBox1.Text & "フィ"
        ElseIf fontenome = "fo" Then
            TextBox1.Text = TextBox1.Text & "フォ"
        ElseIf fontenome = "fu" Then
            TextBox1.Text = TextBox1.Text & "フ"
        ElseIf fontenome = "ga" Then
            TextBox1.Text = TextBox1.Text & "ガ"
        ElseIf fontenome = "ge" Then
            TextBox1.Text = TextBox1.Text & "ゲ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "go" Then
            TextBox1.Text = TextBox1.Text & "ゴ"
        ElseIf fontenome = "gu" Then
            TextBox1.Text = TextBox1.Text & "グ"
        ElseIf fontenome = "gi" Then
            TextBox1.Text = TextBox1.Text & "ギ"
        ElseIf fontenome = "ha" Then
            TextBox1.Text = TextBox1.Text & "ハ"
        ElseIf fontenome = "he" Then
            TextBox1.Text = TextBox1.Text & "ヘ"
        ElseIf fontenome = "hi" Then
            TextBox1.Text = TextBox1.Text & "ヒ"
        ElseIf fontenome = "ho" Then
            TextBox1.Text = TextBox1.Text & "ホ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "ji" Then
            TextBox1.Text = TextBox1.Text & "ジ"
        ElseIf fontenome = "i" Then
            TextBox1.Text = TextBox1.Text & "イ"
        ElseIf fontenome = "jya" Then
            TextBox1.Text = TextBox1.Text & "ジャ"
        ElseIf fontenome = "jye" Then
            TextBox1.Text = TextBox1.Text & "ジェ"
        ElseIf fontenome = "jyo" Then
            TextBox1.Text = TextBox1.Text & "ジョ"
        ElseIf fontenome = "jyu" Then
            TextBox1.Text = TextBox1.Text & "ジュ"
        ElseIf fontenome = "ka" Then
            TextBox1.Text = TextBox1.Text & "カ"
        ElseIf fontenome = "ke" Then
            TextBox1.Text = TextBox1.Text & "ケ"
        ElseIf fontenome = "ki" Then
            TextBox1.Text = TextBox1.Text & "キ"
        ElseIf fontenome = "ko" Then
            TextBox1.Text = TextBox1.Text & "コ"
        ElseIf fontenome = "ku" Then
            TextBox1.Text = TextBox1.Text & "ク"
        ElseIf fontenome = "ma" Then
            TextBox1.Text = TextBox1.Text & "マ"
        ElseIf fontenome = "me" Then
            TextBox1.Text = TextBox1.Text & "メ"
        ElseIf fontenome = "mi" Then
            TextBox1.Text = TextBox1.Text & "ミ"
        ElseIf fontenome = "mo" Then
            TextBox1.Text = TextBox1.Text & "モ"
        ElseIf fontenome = "mu" Then
            TextBox1.Text = TextBox1.Text & "ム"
        ElseIf fontenome = "n" Then
            TextBox1.Text = TextBox1.Text & "ン"
        ElseIf fontenome = "na" Then
            TextBox1.Text = TextBox1.Text & "ナ"
        ElseIf fontenome = "ne" Then
            TextBox1.Text = TextBox1.Text & "ネ"
        ElseIf fontenome = "ni" Then
            TextBox1.Text = TextBox1.Text & "ニ"
        ElseIf fontenome = "no" Then
            TextBox1.Text = TextBox1.Text & "ノ"
        ElseIf fontenome = "nu" Then
            TextBox1.Text = TextBox1.Text & "ヌ"
        ElseIf fontenome = "o" Then
            TextBox1.Text = TextBox1.Text & "オ"
        ElseIf fontenome = "pa" Then
            TextBox1.Text = TextBox1.Text & "パ"
        ElseIf fontenome = "pe" Then
            TextBox1.Text = TextBox1.Text & "ペ"
        ElseIf fontenome = "pi" Then
            TextBox1.Text = TextBox1.Text & "ピ"
        ElseIf fontenome = "po" Then
            TextBox1.Text = TextBox1.Text & "ポ"
        ElseIf fontenome = "pu" Then
            TextBox1.Text = TextBox1.Text & "プ"
        ElseIf fontenome = "ra" Then
            TextBox1.Text = TextBox1.Text & "ラ"
        ElseIf fontenome = "re" Then
            TextBox1.Text = TextBox1.Text & "レ"
        ElseIf fontenome = "ri" Then
            TextBox1.Text = TextBox1.Text & "リ"
        ElseIf fontenome = "ro" Then
            TextBox1.Text = TextBox1.Text & "ロ"
        ElseIf fontenome = "ru" Then
            TextBox1.Text = TextBox1.Text & "ル"
        ElseIf fontenome = "sa" Then
            TextBox1.Text = TextBox1.Text & "サ"
        ElseIf fontenome = "se" Then
            TextBox1.Text = TextBox1.Text & "セ"
        ElseIf fontenome = "she" Then
            TextBox1.Text = TextBox1.Text & "シェ"
        ElseIf fontenome = "shi" Then
            TextBox1.Text = TextBox1.Text & "シ"
        ElseIf fontenome = "sho" Then
            TextBox1.Text = TextBox1.Text & "ショ"
        ElseIf fontenome = "shu" Then
            TextBox1.Text = TextBox1.Text & "シュ"
        ElseIf fontenome = "so" Then
            TextBox1.Text = TextBox1.Text & "ソ"
        ElseIf fontenome = "su" Then
            TextBox1.Text = TextBox1.Text & "ス"
        ElseIf fontenome = "ta" Then
            TextBox1.Text = TextBox1.Text & "タ"
        ElseIf fontenome = "te" Then
            TextBox1.Text = TextBox1.Text & "テ"
        ElseIf fontenome = "to" Then
            TextBox1.Text = TextBox1.Text & "ト"
        ElseIf fontenome = "tsu" Then
            TextBox1.Text = TextBox1.Text & "ツ"
        ElseIf fontenome = "u" Then
            TextBox1.Text = TextBox1.Text & "ウ"
        ElseIf fontenome = "va" Then
            TextBox1.Text = TextBox1.Text & "ヴァ"
        ElseIf fontenome = "ve" Then
            TextBox1.Text = TextBox1.Text & "ヴェ"
        ElseIf fontenome = "vi" Then
            TextBox1.Text = TextBox1.Text & "ヴィ"
        ElseIf fontenome = "vo" Then
            TextBox1.Text = TextBox1.Text & "ヴォ"
        ElseIf fontenome = "vu" Then
            TextBox1.Text = TextBox1.Text & "ヴ"
        ElseIf fontenome = "wa" Then
            TextBox1.Text = TextBox1.Text & "ワ"
        ElseIf fontenome = "ya" Then
            TextBox1.Text = TextBox1.Text & "ヤ"
        ElseIf fontenome = "yo" Then
            TextBox1.Text = TextBox1.Text & "ヨ"
        ElseIf fontenome = "yu" Then
            TextBox1.Text = TextBox1.Text & "ユ"
        ElseIf fontenome = "za" Then
            TextBox1.Text = TextBox1.Text & "ザ"
        ElseIf fontenome = "ze" Then
            TextBox1.Text = TextBox1.Text & "ゼ"
        ElseIf fontenome = "zo" Then
            TextBox1.Text = TextBox1.Text & "ゾ"
        ElseIf fontenome = "zu" Then
            TextBox1.Text = TextBox1.Text & "ズ"
        ElseIf fontenome = "" Then
            TextBox1.Text = TextBox1.Text & ""
        Else
            MsgBox("Houve algum erro durante a passagem do seu nome para as fontes.", MsgBoxStyle.Critical, "JapaneseWay")
        End If

        ProgressBar1.Value = 100
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.Text <> "" Then
            Label2.Text = TextBox1.Text
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Form1.CheckBox2.Checked = False Then
            Timer2.Enabled = False
            MsgBox("Talvez seja necessário que você instale as fontes Japonesas no seu computador para poder vê-las. Use o CD do Windows ou algo semelhante. Não esqueça também de antes de clicar no botão Passar, escreva seu nome na janela principal e clique em Passar para Japonês!", MsgBoxStyle.OkOnly, "JapaneseWay")
            Form1.CheckBox2.Checked = True
        End If
    End Sub

    Private Sub topmost_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Form1.Visible = True Then
            BringToFront()
        End If
    End Sub

    Private Sub Form7_FormClosed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
        formu7 = False
        'Form1.topmostf.Enabled = True
    End Sub

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        formu7 = True
    End Sub
End Class