Option Explicit
'バージョン情報フォーム

'OKボタン
Private Sub cmdOK_Click()

    Unload Me
    
End Sub

'フォームが表示されてから
Private Sub UserForm_Activate()

    If gFlg = False Then
        Application.Wait Now() + TimeValue("00:00.02")
        Unload Me
    End If
    
    gFlg = True
    
End Sub

'フォームロード時
Private Sub UserForm_Initialize()

    Me.lblVer1.Caption = "給与計算システム for Excel" & vbCrLf & "with Visual Basic for Application's"
    Me.lblVer2.Caption = "Version 1.84"
    Me.lblMsg1.Caption = "比較的小規模な企業向けの給与計算システムです。"
    Me.lblMsg2.Caption = "Copyreight(C) 2000.6-2010.3 Keisuke Kigawa All Rights Recived"
    Me.lblMsg3.Caption = "この製品は、日本国著作権法および国際条約により保護されています。この製品の全部または一部を無断で複製したり、無断で複製物を配布すると、著作権の侵害となりますのでご注意下さい。"
    
    If gFlg = False Then Me.cmdOK.Visible = False
    If gFlg = True Then Me.cmdOK.Visible = True
    
End Sub

'フォームロード時
Private Sub UserForm_Terminate()

    gFlg = True
    
End Sub