Dim style() As String = Split(My.Computer.FileSystem.ReadAllText( _
  Application.StartupPath & "\styles\" & My.Settings.style, _
  System.Text.Encoding.Default), vbCrLf)
 Dim ordner As String = style(9)
Public menu_top_high As Bitmap
    Public Sub programm_laden()
menu_top_high = New Bitmap(ordner & "\menu_top_high.bmp")
end sub