Attribute VB_Name = "SCStdNoConfirm"
Attribute VB_Base = "0{B1901B8B-B98F-46DB-9B05-26B8F004FEB1}{83C2F9F0-0C2F-48AA-81A1-041F591E735E}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Option Explicit

Public Confirmed As Boolean

Private Sub UserForm_Initialize()
    Confirmed = False
    Me.caption = "SquareClick Standard - KpȂmF"
    lblInfo.caption = "̕ɂ́ASquareClickKp܂B" & vbCrLf & vbCrLf & _
                      "̐ݒ͌ォύXł܂B" & vbCrLf & vbCrLf & _
                      "낵łH"
    cmdYes.caption = "͂"
    cmdCancel.caption = "LZ"
End Sub

Private Sub cmdYes_Click()
    Confirmed = True
    Me.Hide
End Sub

Private Sub cmdCancel_Click()
    Confirmed = False
    Me.Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Confirmed = False
        Cancel = True
        Me.Hide
    End If
End Sub
