&color(Red){注意：ココでは一切「クラス」を使いません（ボタンクラスなどは別にして・・・・）
なので、簡単すぎるかもしれません。許してください。};
計算機
一つ一つ説明します。
まず新しいプログラムを作る。
一番上のをダブルクリック！
そして、四角い物が出ます。
それがウィンドウだ！
それに次の物をツールボックスからドラックしましょう。
Textbox×4（textを一つ目は：変えない 二つ目：+に変える 3：1と同じ 4:変えない)
Button×1 (1:＝に変える)
こんな感じ
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
( )(+)( )[=]( )
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
まずButton1をダブルクリック!
まず、変数というものを設定しましょう
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
と入力！
なんか警告が出ますが無視！
でその次に、変数＝箱のなかに何に対応するかを決めます！！
n1= Textbox1.text
n2= Textbox3.text
n3= Textbox4.text
で最後の仕上げ！
n3=n1+n2
Textbox4.Text=n3
これで、上の三角ボタンを押すと・・・
実行されます！
(120)(+)(252)[=]( )
と入力して[=]をクリック
そしたら、二つの数字を足した計算結果が出る！
注意：n3=n1+n2の所を、普通の計算式にしてはだめ！
エラーが起きるよ！
数字を入力しないで[=]をクリックをしたらだめ！
エラー処理をするプログラムがあるのですが、また次回。
まとめ
| 部品・プログラム | 要素 | 注意 |
| Textbox | 入力できるもの | |
| Button | おしたら何かが起きる | エラーが起こる可能性が・・ |
| dim | その箱( 変数)を作る |
バトルタワーRPG
次にカンタンなRPGを作ってみましょう。
、といっても以下の制限があります。
・バトルだけ ・マップはない
・自分のターンで出来る技は「攻撃」「防御」「必殺技」「逃走（終了）」の三つ
出る敵は全部「ブズー」です。
では作っていきましょう！
敵・自分のステータスのデータを入れるための箱を作る。
まず・・・・・Dimを使い、ステータスを作りましょう
Dim EHP As integer '敵のHP
Dim MHP As integer '自分自身のHP
Dim EPOW As integer '敵の攻撃力
Dim MPOW As integer '自分自身の攻撃力
Dim EDF As integer '敵の防御力
Dim MDF As integer '自分自身の防御力
・・・・・・・と打ち込みます。
こうする事で、ステータスの数字のデーターを入れる箱が出来ました。
ボタン配置
（作成中・・・・・（5％））