Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        For i = 0 To 5
            x = InputBox("Skriv in ett nummer")
            If ((x Mod 2) = 0) Then
                ListBox1.Items.Add(x)
            Else
                MsgBox("Det här är ett felmedellande")
                GoTo slut
            End If
        Next i
        x = ListBox1.Items.Equals(x)
        x = ((x Mod 2) = 0)
        If x = True Then
            MsgBox("Alla dina tal är jämna")
        Else
            MsgBox("Det är kaos")
        End If
slut:
        MsgBox("Programmet är slut nu, tryck {enter} för att stänga av programmet") '
        Close()
    End Sub
End Class