$startfile	= "xxx\start.ini"
$ueber		= IniReadSection($startfile, "Titel")
$start		= IniReadSection($startfile, "Start")
$font		= IniRead($startfile,"Variable","Font","")

#include <GUIConstants.au3>
GUICreate("Programm",750,540,20,20)
GUICtrlCreatePic("visite2.jpg",0,0,750,540)					; irgend ein Bild was die gesamte GUI ausfüllt
GUICtrlSetState(-1,$GUI_DISABLE)											; the label is in disable state
GuiSetIcon(@SystemDir & "\shell32.dll", 20)									; Titelleistenicon
GUISetBkColor(0x00e0ffff)
GUISetFont(9, 300)
Opt("RunErrorsFatal", 0)													; kein Programmende bei Error
HotKeySet("^!x", "MeinExit")												; Hotkey-Definierung siehe "Func" am Ende

; Menü																		; Aufbau des Dateimenüs
$filemenu	= GuiCtrlCreateMenu ("Datei")
$winditem	= GuiCtrlCreateMenuitem ("Programm neustarten",$filemenu)
$exititem	= GuiCtrlCreateMenuitem ("Beenden",$filemenu)

; Schaltflächen																; Aufbau von Schaltflächen
$cancelbutton	= GuiCtrlCreateButton ("Beenden",666,475,70,20)

; DATE																		; Kalenderfunktion
GuiCtrlCreateDate("",0,0,230,20)

; Rahmen
GuiCtrlCreateGroup("",13,442,645,65)
GUICtrlCreateGroup("",-99,-99,1,1)											; Rahmen schließen

;;; Karteikarten Kunden
GuiCtrlCreateTab(20, 36, 580, 350,$TCS_HOTTRACK + $TCS_TABS)
GUICtrlSetBkColor(-1,0x00ff00)  ; Green
GUICtrlSetFont (-1,9, 400, 4,"Comic Sans MS")    ; will display underlined characters
GUICtrlSetStyle (-1,$WS_VISIBLE)

GuiCtrlCreateTabItem("Familie")
; Programm Kartei 1-1
GuiCtrlCreateLabel("Eintrag 1", 200, 76, 450, 20)
GuiCtrlCreateButton ("Button 1",40,73,150,20)

GuiCtrlCreateLabel("Eintrag 2", 200, 106, 450, 20)
GuiCtrlCreateButton ("Button 2",40,103,150,20)

GuiCtrlCreateLabel("Eintrag 3", 200, 136, 450, 20)
GuiCtrlCreateButton ("Button 3",40,133,150,20)

GuiSetState()

; Funktionen																; Schaltflächenfunktionen
While 1
 $msg = GUIGetMsg()
 Select
  Case $msg = $winditem
	Run("kunden.exe " & $progview)
	MeinExit()
  Case $msg = $exititem
	MeinExit()
  Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
	MeinExit()
  EndSelect
WEnd

; Ende																			; Beenden des Scripts
Func MeinExit()
Exit 
EndFunc