这个很简单，关键是你要搞窗体不是一个好主意，建议你搞一个Label,先隐藏，当你指向一个球员时，label显示，上面的信息改变这个很简单，如果你还不清楚，hi me is ok Private Sub Form_Load()With List1.AddItem "甲".AddItem "乙"End WithLabel1.Visible = FalseEnd SubPrivate Sub List1_Click()Label1.Visible = TrueSelect Case List1.List(List1.ListIndex)Case "甲": Label1.Caption = "甲是球队的灵魂人物，他擅长进攻。"Case "乙": Label1.Caption = "乙是球队队长，在他的带领下球队一步步都向胜利。"End SelectEnd SubPrivate Sub List1_LostFocus()Label1.Visible = FalseEnd Sub