Dim i As Long
Dim u As Long
Dim n As Long
Dim ItemX As ListItem
u = 0
For i = 0 To ComCount
  Set ItemX = List.ListItems.Add(, , sFormDat(u))
  For n = 1 To 5
    ItemX.SubItems(n) = sFormDat(u + n)
  Next n
  u = u + 6
Next i
Label2.Visible = True
End Sub

Private Sub List_ItemClick(ByVal ItemX As MSComCtlLib.ListItem)
    With Form2
        .codeid = ItemX.SubItems(0)
        .fname = ItemX.SubItems(1)
        .email = ItemX.SubItems(2)
        .zip = ItemX.SubItems(3)
        .age = ItemX.SubItems(4)
        .regdate = ItemX.SubItems(5)
        Call Form2.Show(, frmMain)
    End With
End Sub