7 Segment Anzeige mit VB

[Arvenius]

Hallo.

Wir sollen in der Schule eine 7 Segmentanzeige mit VB (Express 2010, ich hoffe, dass ich in diesem Forum richtig bin) schreiben. Die Anzeige der einzelnen Ziffern funktioniert auch super, allerdings wird das ganze ja ne Menge Quellcode... Kann man das Ganze eventuell mit Arrays arrangieren?

Zum Programmaufbau bei mir:
Ich habe eine simple Form mit 3 7 Segment Anzeigen erstellt. Die Zahlen werden aus einem Textfeld geholt und durch druck auf den Button wird die jeweilige Zahl angezeigt.
Nun möchte ich aber nicht, wie im angehängten Quellcode, jede Ziffer einzeln als Case Anweisung schreiben, sondern nach Möglichkeit die Textfeldeingabe in einzelne Zeichen zerlegen, in einem Array speichern und somit die Segmente ebenfalls per Array einblenden. Kann mir da jemand helfen?

Public Class Form1

    Private Sub los_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles los.Click


        Select Case zahl.Text
            Case 0
                or3.Visible = True
                ur3.Visible = True
                ol3.Visible = True
                ul3.Visible = True
                om3.Visible = True
                um3.Visible = True
                mm3.Visible = False

            Case 1
                or3.Visible = True
                ur3.Visible = True
                ol3.Visible = False
                ul3.Visible = False
                om3.Visible = False
                um3.Visible = False
                mm3.Visible = False

            Case 2
                or3.Visible = True
                ur3.Visible = False
                ol3.Visible = False
                ul3.Visible = True
                om3.Visible = True
                um3.Visible = True
                mm3.Visible = True

            Case 3
                or3.Visible = True
                ur3.Visible = True
                ol3.Visible = False
                ul3.Visible = False
                om3.Visible = True
                um3.Visible = True
                mm3.Visible = True

            Case 4
                or3.Visible = True
                ur3.Visible = True
                ol3.Visible = True
                ul3.Visible = False
                om3.Visible = False
                um3.Visible = False
                mm3.Visible = True

            Case 5
                or3.Visible = False
                ur3.Visible = True
                ol3.Visible = True
                ul3.Visible = False
                om3.Visible = True
                um3.Visible = True
                mm3.Visible = True

            Case 6
                or3.Visible = False
                ur3.Visible = True
                ol3.Visible = True
                ul3.Visible = True
                om3.Visible = True
                um3.Visible = True
                mm3.Visible = True

            Case 7
                or3.Visible = True
                ur3.Visible = True
                ol3.Visible = False
                ul3.Visible = False
                om3.Visible = True
                um3.Visible = False
                mm3.Visible = False

            Case 8
                or3.Visible = True
                ur3.Visible = True
                ol3.Visible = True
                ul3.Visible = True
                om3.Visible = True
                um3.Visible = True
                mm3.Visible = True

            Case 9
                or3.Visible = True
                ur3.Visible = True
                ol3.Visible = True
                ul3.Visible = False
                om3.Visible = True
                um3.Visible = True
                mm3.Visible = True
        End Select

    End Sub
End Class