[ahmed salam]

السلام عليكم و رحمة الله و بركاتة
اخي الكريم جرب هذا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim txtlong As Integer = TextBox1.Text.Length
        Dim result As String = ""
        TextBox1.Text = TextBox1.Text.ToLower
        For i = 0 To txtlong
            On Error Resume Next
            result = result & TextBox1.Text.Substring(0, i).ToUpper & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine
            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine
            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine
            result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine
        Next
        
        MessageBox.Show(result)
    End Sub

لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله وبركاته