Private Sub CommandButton1_Click()
If ListBox1.ListIndex >= 0 Then _
Microsoft is conducting an online survey to understand your opinion of the Msdn Web site. If you choose to participate, the online survey will be presented to you when you leave the Msdn Web site.
Would you like to participate?