ficha -> 8

 Parte gráfica

código

<Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = LCase(TextBox1.Text)
        TextBox2.Text = UCase(TextBox1.Text)
        TextBox4.Text = Len(TextBox1.Text)
        Dim i As Integer
        For i = 1 To Len(TextBox1.Text)
            ListBox1.Items.Add(Mid(TextBox1.Text, i, 1))
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox3.Text = " "
        TextBox4.Text = " "
        ListBox1.Items.Clear()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim x As Integer
        x = MsgBox("Quer mesmo sair", MsgBoxStyle.YesNo)
        If x = vbYes Then
            Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub


End Class