'Variable für die Zeichen definieren
Dim symbol(0 To 7) As DspOwnSymbol

Private Function UseCharacters()
'Jedes Zeichen einzeln definieren
'Natürlich kann man auch jedes Zeichen einzeln definieren.
'Dazu muss man die Indizes nicht mehr verwenden...
symbol(0).Line0 = "00000"
symbol(0).Line1 = "00000"
symbol(0).Line2 = "00000"
symbol(0).Line3 = "00000"
symbol(0).Line4 = "00000"
symbol(0).Line5 = "00000"
symbol(0).Line6 = "00000"
symbol(0).Line7 = "11111"

symbol(1).Line0 = "00000"
symbol(1).Line1 = "00000"
symbol(1).Line2 = "00000"
symbol(1).Line3 = "00000"
symbol(1).Line4 = "00000"
symbol(1).Line5 = "00000"
symbol(1).Line6 = "11111"
symbol(1).Line7 = "11111"

symbol(2).Line0 = "00000"
symbol(2).Line1 = "00000"
symbol(2).Line2 = "00000"
symbol(2).Line3 = "00000"
symbol(2).Line4 = "00000"
symbol(2).Line5 = "11111"
symbol(2).Line6 = "11111"
symbol(2).Line7 = "11111"

symbol(3).Line0 = "00000"
symbol(3).Line1 = "00000"
symbol(3).Line2 = "00000"
symbol(3).Line3 = "00000"
symbol(3).Line4 = "11111"
symbol(3).Line5 = "11111"
symbol(3).Line6 = "11111"
symbol(3).Line7 = "11111"

symbol(4).Line0 = "00000"
symbol(4).Line1 = "00000"
symbol(4).Line2 = "00000"
symbol(4).Line3 = "11111"
symbol(4).Line4 = "11111"
symbol(4).Line5 = "11111"
symbol(4).Line6 = "11111"
symbol(4).Line7 = "11111"

symbol(5).Line0 = "00000"
symbol(5).Line1 = "00000"
symbol(5).Line2 = "11111"
symbol(5).Line3 = "11111"
symbol(5).Line4 = "11111"
symbol(5).Line5 = "11111"
symbol(5).Line6 = "11111"
symbol(5).Line7 = "11111"

symbol(6).Line0 = "00000"
symbol(6).Line1 = "11111"
symbol(6).Line2 = "11111"
symbol(6).Line3 = "11111"
symbol(6).Line4 = "11111"
symbol(6).Line5 = "11111"
symbol(6).Line6 = "11111"
symbol(6).Line7 = "11111"

symbol(7).Line0 = "11111"
symbol(7).Line1 = "11111"
symbol(7).Line2 = "11111"
symbol(7).Line3 = "11111"
symbol(7).Line4 = "11111"
symbol(7).Line5 = "11111"
symbol(7).Line6 = "11111"
symbol(7).Line7 = "11111"

'Zeichen mit For ... Next an das Display schicken (werden nur in den CG-RAM geschrieben!!)
For x = 0 To 7
LcdDefineChar 888, x, symbol(x)
Next

'Display löschen und Cursor auf Home setzen.
LcdClearDisplay 888
LcdSetCursorHome 888

'Als Beispiel: Zeichen 0-7 auf dem Display anzeigen.
For x = 0 To 7
LcdWriteChar 888, x
Next
End Sub