dim fontDummy as Font
dim varFontName as String
dim varFontSize as String
 
varFontName = fontDummy.Name
varFontHeight = fontDummy.Size

dim fontDummy as Font
dim varFontName as String
dim varFontSize as String
 
varFontName = ' Aus XML laden
varFontSize = ' Aus XML laden
 
fontDummy = New Font(varFontName, varFontSize)