Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kraj As Integer
        Dim ile As Integer
        ile = 0

        Dim kraje(0 To 6) As Integer
        kraje(0) = narodowosci.niemcy
        kraje(1) = narodowosci.polska
        kraje(2) = narodowosci.madagaskar
        kraje(3) = narodowosci.francja
        kraje(4) = narodowosci.anglia
        kraje(5) = narodowosci.holandia
        kraje(6) = narodowosci.rosja

        Dim d As Integer
        For d = 0 To 6
            If (kraje(d) > ile) Then
                kraj = d
                ile = kraje(d)
            End If
        Next d

Select Case kraj
    Case 0
        //uruchom niemcy
    Case 1
        //uruchom polske
    Case 2
        //uruchom madagaskar
    Case 3
        //uruchom francje
    Case 4
        //uruchom anglie
    Case 5
        //uruchom holandie
    Case 6
        //uruchom rosje
    Case Else
        //NIC
End Select

    End Sub