这个东西应该可以实现你所描述的功能
Try
Dim chen1 As New ToolTip
Dim chen2 As New Button
Dim chen3 As New Button
chen2.Location = New Point(200, 200)
chen2.Size = New Size(50, 50)
chen1.SetToolTip(chen2, "bad") '让tooltip和button绑定
chen3.Location = New Point(100, 100)
chen3.Size = New Size(50, 50)
chen1.SetToolTip(chen, "good") '让tooltip和button绑定
Me.Controls.Add(chen2)
Me.Controls.Add(chen3)
Catch
MsgBox(ErrorToString)
End Try