Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",0)
Dim Code As String = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Register" & ComputerId,"")
Dim Ok As Boolean = False
Vars("内外网") = User.ExtendedValues("登陆方式")

baseMainform.MinimizeBox = True
If Code > ""  AndAlso DecryptText(Code,"yang139264","139264yang") = ComputerId Then
       Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",n+1)
       Forms("登陆").Open()
       InitNotifyIcon()
Else
    If n > 350 And n <= 380 Then
        Forms("注册窗口").Open()
    Else If n > 380 Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit(False)
    Else
       Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",n+1)
       Forms("登陆").Open()
       InitNotifyIcon()
    End If
End If
BaseMainform.IsMdiContainer = True
baseMainform.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog \'项目固定大小,不可调整

 1、win7，要设置用管理员身份运行项目；

 2、你用msgbox调试，那一行代码出错。

在全局中代码如下：

Public NotifyIcon As New System.Windows.Forms.NotifyIcon()
Public menu As New System.Windows.Forms.ContextMenuStrip()
\'初始化组件.此函数在AfterOpenProject事件中调用
Public Sub InitNotifyIcon()
Dim menu1 As New System.Windows.Forms.ToolStripMenuItem()
Dim menu2 As New System.Windows.Forms.ToolStripMenuItem()
menu1.Text = "最大化"
menu2.Text = "退出系统"
menu.Items.Add(menu1)
menu.Items.Add(menu2)
AddHandler  menu1.Click, AddressOf seo1  \'事件注册,表示点菜单1的时候执行方法1
AddHandler  menu2.Click, AddressOf seo2

NotifyIcon.Ballo \'+ vbcrlf + "Win7用户请注意,图标会自动隐藏.需要设置为""显示图标和通知"""
NotifyIcon.Icon = New Icon("Images\\001.ico")
NotifyIcon.Visible = False
NotifyIcon.ContextMenuStrip = menu
End Sub
是否win7不支持？还是上面哪句代码有问题。请教各位！！

不好调试，客户端是远程的，全局代码修改或AfterOpenProject代码修改一次要重启一次。客户再测试下一次麻烦哦。

想有遇到此问题帮指点下！