

    Option Explicit


'------------------------------------------------------------------------------


    '/*  ̫Ѳ  */
    Private Sub Form_DblClick()


        ' ݒ޲۸ޏ
        Me.Visible = False


    End Sub


'------------------------------------------------------------------------------


    '/*  ٲ  */
    Private Sub Label1_DblClick()


        ' ҰװN
        Shell Form1.Text4.Text, vbNormalFocus


        ' ݒ޲۸ޏ
        Me.Visible = False


    End Sub


'------------------------------------------------------------------------------

