Privatni Sub Form_Load ()
S List1
. AddItem "Form1"
. AddItem "Form2"
. AddItem "Form3"
Završiti s
End Sub