[375.xls]



' [mjSumple] のコード
'■■ コントロールの状態・内容を取得する ■■
'

'フォームを表示します
Sub frmSumple_Show()
    
   'フォームの表示
    frmSumple.Show
End Sub


Sub Btn1_Click()
    MsgBox (frmSumple.txtInput0.Value)
End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub