Dim r As WinForm.ListViewRow = e.Sender.CurrentIf Forms.Contains(r.text)
Forms(r.text).showElse MessageBox.show("项目建设中,敬请期待!","提示!",MessageBoxButtons.OK,MessageBoxIcon.Information) ReturnEnd If