说明书不是很清楚吗?
Select Case e.Link.Name Case "任务1" Forms("窗口1").Show() Case "任务2" Forms("窗口2").Show()End Select