labelに入力された文字を一文字ずつ消すには？ (ID:117921)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ざっくりこんな感じで -- Sub hogehoge_Click() dim GetLen as Integer GetLen = Len(Text1.text) Text1.text =Mid(Text1.text,1,GetLen -1) End Sub