教えて下さい。
テキストボックスに入力した数字をフォーム上に表示したいのですが、思うように表示できません。

【例】「123」とテキストボックスに数値入力します。

　　　Private Sub Text1_KeyPress(KeyAscii As Integer)

    　　Form1.Print Val(Text1.Text)
    
　　　End Sub

　　　このようにプログラムすると、Enterキーを押すたびに数字が表示されて以下のようになります。
　　　
　　　〈画面上の表示〉
　　　0
      1
      12
      123
      
テキストボックス内の「123」だけを表示したいにも関わらず、数値を入力するたびに必要のない数値
が表示されてしまいます。何か良い方法はありますでしょうか。　　　

先程の質問の追加です。

テキストボックス内の数値をフォームに反映させる方法としてフォーム上にcommand buttonを付けて
ボックス内の数値を読み取らせる方法もあるかと思います。ですが、そのcommand buttonを付けない
で数値を表示させたいと考えております。
ボックス内の数値を変えながら、対象となる図形をタムリーに変形させられればとても有り難いので
すが、不可能でしょうか。

すいません。
以下の方法でやりましたら、思い通りにできました。

Private Sub Text1_KeyPress(KeyAscii As Integer)

     If KeyAscii = 13 Then
         KeyAscii = 0
         Form1.Print Val(Text1.Text)
      End If

End Sub

Label や ListBox 等ではなく、あえて Print で出力するのは珍しいですね。
その場合は、 AutoRedraw プロパティを True/False いずれにするかも要確認。


> 対象となる図形をタムリーに変形させられれば
「タムリー」は「タイムリー」だとして、「図形」というのは何のことだったのでしょうか。

今は、Text1.Text で返される文字列(String)を Val で数値(Double)に変換し、
それを Form1 上に Print メソッドで描画しているようですが、図形は取り扱っていないですよね。


なお現状のコードでは、TextBox の内容次第ではエラーになってしまう点にご注意を。

Val("1.5%") → 『型が一致しません』エラー
Val("2022.6 d -3") → 2.0226
Val(" &o 2 5 7 ") → 175
Val(" &o 2 5 9 ") → 21

魔界の仮面弁士さん、早速のご指摘、ありがとうございました。
今私が作成しようと考えているソフトは以下のようなものです。

【作成中のソフトの一部概要】

�@テキストボックス内に数値を入力する。
�Aテキストボックス内の数値の大きさに応じて、Line文やCicle文で描いた
　PictureBox内の図形を移動する。

　以上のようなものを作りたいと思っています。
　しかし、今また大きな課題ができました。
（課題１）テキストボックス内に入力する数値を半角数字だけにできないものか。
　　　　　※ 本サイトで調べましたら、VB.Net版の説明があり使えませんでした。
  現在いろいろと試行錯誤を繰り返しながらプログラムを組んでいるところです。
　何か、これに関して良い方法がありましたら教えて下さい。

魔界の仮面弁士さんへ

私の大きな課題解消ができました。
よ〜く本サイトを調べましたら、「逆引きヘルプ一覧表」の中に「テキストボックス内を数値入力だけにする方法」が掲載されていました。
よく本サイトを調べてみるものですね。反省しています。・・・・・すいません！
こんな私ですが、これからもよろしくお願い致します。