你的代码写在什么地方的

我的和你的基本一样，可以的啊！  
Private Sub treeMnu_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles treeMnu.NodeMouseDoubleClick
        '模块功能:主菜单双击处理
        Dim strTag As String
        strTag = e.Node.Tag
        Select Case strTag
            Case "0101"                '菜单双击了注册
                Dim frmRegister As New frmReg
                frmRegister.Tag = Trim(strTag)
                frmRegister.ShowDialog()
            Case "0102"                '菜单双击了修改密码
                Dim frmUpdePwd As New frmPass
                frmUpdePwd.Tag = Trim(strTag)
                frmUpdePwd.ShowDialog()

            Case "0104"                '菜单双击了用户设定
                Dim frmUserSet As New frmUserList
                frmUserSet.Tag = Trim(strTag)
                frmUserSet.ShowDialog()
            Case "0105"                '菜单双击了权限设定
                Dim frmRole As New frmRoleList
                frmRole.Tag = Trim(strTag)
                frmRole.ShowDialog()
            .....