' Gambas class file PUBLIC SUB _new() TextLabel2.Text = "See the first and last character of your INPUT!" END PUBLIC SUB Button1_Click() inword AS String outword AS String inword = TextBox1.Text outword = Mid(inword, 1, 1) outword = outword & Mid(inword, Len(inword), 1) TextLabel1.Text = outword END
-- JochenGeorges - 28 Dec 2004