主题：申请著作权代码更改问题

各位老师、各位大神，请教一个问题，论坛上搜了很久没看到详细的软件著作权申请时，FT代码如何更改的例子，有几篇都是极其简单谈到。

我想问的是，如果要修改下列代码修改为软件著作权申请用的代码，该如何操作呢？各位老师帮我看看，我认真、虚心学习，感谢大家！

安全窗口_AfterLoad

Dim frm As new windows.Forms.Form

frm.text = "安全窗口"

frm.Topmost = True

安全窗口_Button1_Click

Dim t As WinForm.Textbox = e.Form.Controls("textbox1")

If t.text = "987654321" Then

    forms("数据管理").open

forms("安全窗口").close

Else

    MessageBox.show("你无权执行此项操作!")

End If

Public Class 安全窗口

Private Sub AfterLoad(e as object)

Dim t As WinForm.Textbox = e.Form.Controls("textbox1")

If t.text = "987654321" Then

    forms("数据管理").open

forms("安全窗口").close

Else

    MessageBox.show("你无权执行此项操作!")

End If

End Sub

老师是这样手工修改吗？

请老师指导，感谢感谢！

好的，谢谢老师，窗口代码我知道怎么改啦！

我还有一个疑问，如果是项目事件AfterOpenProject，代码改如何改呢？比如下面的代码，不知道对不对？

Public Class basemainform

Private Sub AfterLoad(e as object)

BaseMainForm.Controls("C1StatusBar1").Visible = False

BaseMainForm.Controls("C1Ribbon1").Visible = False

basemainform.ShowInTaskBar = False

basemainform.Opacity = 0

End Sub