Code:
Option Explicit

Private Sub Form_Load()
  '~~~ Loading sample datas
  List1.AddItem "Contains 1"
  List1.ItemData(List1.NewIndex) = 1
  List1.AddItem "Contains 2"
  List1.ItemData(List1.NewIndex) = 2
  List1.AddItem "Contains 0"
  List1.ItemData(List1.NewIndex) = 0
  List1.AddItem "Contains 4"
  List1.ItemData(List1.NewIndex) = 4
  List1.AddItem "Contains 0"
  List1.ItemData(List1.NewIndex) = 0
  
End Sub

Private Sub List1_Click()
  If List1.ItemData(List1.ListIndex) <> 0 Then  '~~~ Check if the ItemData of selected item is not 0
    MsgBox "Congratulations !"  '~~~ If so, display the message
    Unload Me                   '~~~ Close the form
  End If
End Sub
...