[350.xls]



' [mjSumple] のコード
'■■ ラベルの表示/非表示を切り替える ■■
'
'
Dim strMsg As String    'メッセージ用変数

'フォームを表示します
Sub frmMsg_Show()
    'メッセージを変数にセット
    strMsg = "Visibleプロパティのサンプルです。"

    'フォームの表示
    frmMsg.Show
End Sub

'ラベルを表示する場合
Sub Msg0_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg 'メッセージの表示
        .Visible = True '表示するは "True"
    End With
End Sub
'ラベルを非表示にする場合
Sub Msg1_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg 'メッセージの表示
        .Visible = False '非表示にするは "False"
    End With
End Sub



' [frmMsg] のコード

Private Sub cmdMsg1_Click()
    Call Msg0_Disp
End Sub

Private Sub cmdMsg2_Click()
    Call Msg1_Disp
End Sub