求方法。。。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim line As String = "asdfasdf"
Dim tobjStream As IO.Stream = Me.GetType.Assembly.GetManifestResourceStream("WindowsApplication1.name.txt")
Dim sw As StreamWriter = New StreamWriter(tobjStream)
sw.WriteLine(line)
Me.Close() '关闭此窗口
Global.WindowsApplication1.名称.TopMost = True '打开主窗口置顶()
End Sub
Dim line As String = "asdfasdf"
Dim tobjStream As IO.Stream = Me.GetType.Assembly.GetManifestResourceStream("WindowsApplication1.name.txt")
Dim sw As StreamWriter = New StreamWriter(tobjStream)
sw.WriteLine(line)
Me.Close() '关闭此窗口
Global.WindowsApplication1.名称.TopMost = True '打开主窗口置顶()
End Sub