Privatni Sub List1_Click ()
Dim frm kao oblik
Dim selForm kao niz
S List1
selForm =. List (. ListIndex)
Završiti s
Set frm = Forms.Add (selForm)
frm.Show
Set frm = Nothing
End Sub