[357.xls]



' [mjSumple] のコード
'■■ テキストボックスに初期表示する文字列を設定する ■■


'フォームを表示します
Sub frmSumple_Show()
    '上のﾃｷｽﾄﾎﾞｯｸｽには空白を表示します
    '（最初から何も文字が入っていない場合は省略可能です）
    frmSumple.txtInput0.Text = ""
    
    '下のﾃｷｽﾄﾎﾞｯｸｽには「http://」の文字をセットして
    'おきます。
    frmSumple.txtInput1.Text = "http://"
    
    'フォームの表示
    frmSumple.Show
End Sub