Dos preguntas sobre programación vb

Private Sub Form_Load()

List1.Clear

List1.AddItem ""Conceptos básicos de informática universitaria"

List1.AddItem ""Programación VB""

List1.AddItem ""Tecnología y aplicación de base de datos"

List1.AddItem ""Programación C""

List1.AddItem ""Tecnología multimedia""

List1.AddItem ""Conceptos básicos de tecnología de hardware""

List1.AddItem ""Tecnología de red y aplicaciones""

List1.AddItem ""Programación WEB""

Fin Sub

Sub lista privada1_Click()

Si List2.ListCount gt ;= 5 Entonces

MsgBox ""Más de 5 cursos, ¡no se pueden seleccionar más! ""

Salir Sub

Else

Lista2.AddItem Lista1.Text

Lista1.RemoveItem Lista1.ListIndex

Finalizar si

End Sub

Subcomando privado1_Click()

Atenuar N mientras sea largo, banderas como booleanas

N = Val(Text1.Text)

Banderas = Verdadero

For i = 2 To Sqr(N)

Si N Mod i = 0 Entonces

Banderas = Falso

Salir para

Finalizar si

MsgBox N amp; IIf(Flags, "", "not") amp; "es un número primo"

End Sub