Form1.InputBox2.Visible = False
        Form1.InputBox3.Visible = False
        Form1.InputBox4.Visible = False
        Form1.InputBox5.Visible = False
        Form1.InputBox6.Visible = False
        Form1.Label2.Visible = False
        Form1.Label3.Visible = False
        Form1.Label4.Visible = False
        Form1.Label5.Visible = False
        Form1.Label6.Visible = False
        Form1.Label7.Visible = False
        Form1.Label8.Visible = False
    End If
End Event
//======================================================================欢迎使用独处软件
Event Form1.前台幻师学校.Click
    If Form1.前台幻师学校.Visible
        Form1.InputBox1.Visible = False
        Form1.InputBox2.Visible = False
        Form1.InputBox3.Visible = False
        Form1.InputBox4.Visible = False
        Form1.InputBox5.Visible = False
        Form1.InputBox6.Visible = False
        Form1.Label2.Visible = False
        Form1.Label3.Visible = False
        Form1.Label4.Visible = False
        Form1.Label5.Visible = False
        Form1.Label6.Visible = False
        Form1.Label7.Visible = False
        Form1.Label8.Visible = False
    End If
End Event
//======================================================================欢迎使用独处软件
Event Form1.农场.Click
    If Form1.农场.Visible
        Form1.InputBox1.Visible = False
        Form1.InputBox2.Visible = False
        Form1.InputBox3.Visible = False
        Form1.InputBox4.Visible = False
        Form1.InputBox5.Visible = False
        Form1.InputBox6.Visible = False
        Form1.Label2.Visible = False
        Form1.Label3.Visible = False
        Form1.Label4.Visible = False
        Form1.Label5.Visible = False
        Form1.Label6.Visible = False
        Form1.Label7.Visible = False
        Form1.Label8.Visible = False
    End If
End Event
//======================================================================欢迎使用独处软件
Event Form1.Load
    MessageBox "欢迎使用独处软件--YY频道:41522662"
End Event
//======================================================================欢迎使用独处软件
Event Form1.UnLoad
    MessageBox "谢谢你的使用"
End Event
//======================================================================欢迎使用独处软件
Event Form1.InputBox7.Change
    If  Form1.InputBox7.Text>=100
        Form1.InputBox7.Text=1
        MessageBox "请输入数字1--99"
    Else
    End If
End Event