シンプルなプログラムの作り方(電話メモ) Part.3

　皆さん、こんにちは。山本美孝です。いよいよプログラムの完成です。以下のコードを追加してください。

------------------------------------------------------------
Private Sub Form_Load()’フォームがロードされた最初の時

　　Call DateSet

End Sub
------------------------------------------------------------
Private Sub Form_Resize()’フォームがリサイズされた時

　　If frmMain.WindowState = 1 Then ’標準に戻されたなら
　　　　’0………最小化 2………最大化
　　　　Call DateSet
　　End If

End Sub
------------------------------------------------------------

　これで、完成です。え゛、プログラムを修正するとメモも消えてしまうじゃないかって？ごもっともです。