#include-once

Local $s_text,$i_pos_x ,$i_pos_y , $i_size_w , $i_size_h  , $v_stile , $v_exstile

; #FUNCTION# ===================================================================
; Name ..........: _vlabel
; Description ...: Erstellt ein vertikales Label
; AutoIt Version : V3.3.4.0
; Syntax ........: _vlabel($s_text[,$i_pos_x = -1[,$i_pos_y = -1[, $i_size_w = -1[, $i_size_h = -1 [, $v_stile = ""[, $v_exstile = ""]]]]]])
; Parameter(s): .: $s_text		- String: 			  Der Beschriftungstext.
;				   $i_pos_y		- Optional ; Int:	  Die linke Seite des Controls. Wird -1 verwendet, dann wird left mit Hilfe von GUICoordMode berechnet.
;				   $i_pos_x		- Optional ; Int:	  Die Oberkante des Controls. Wird -1 verwendet, dann wird top mit Hilfe von GUICoordMode berechnet.
;				   $i_size_w	- Optional ; Int:	  Die Breite des Controls (voreingestellt ist die zuvor verwendete Breite).
;				   $i_size_h	- Optional ; Int:	  Die Höhe des Controls (voreingestellt ist die zuvor verwendete Höhe).
;				   $v_stile		- Optional:			  Legt den Stil des Controls fest.
;				   $v_exstile	- Optional:			  Legt den erweiterten Stil des Controls fest.
; Return Value ..: Success      - Gibt die Identifikationsnummer (Control-ID) des neuen Controls zurück.
;                  Failure      - 0
;                  @ERROR       -
; Author(s) .....: Cartan12
; Date ..........: Freitag, 29. Januar 2010
; Link ..........:
; Related .......:
; Example .......: No
; ==============================================================================

Func _vlabel($s_text,$i_pos_x = -1,$i_pos_y = -1, $i_size_w = -1, $i_size_h = -1 , $v_stile = "", $v_exstile = "")
	Local $i, $v_string2, $v_label
	$s_text = StringSplit($s_text,"")
	For $i = 1 To $s_text[0]
		If $i = $s_text[0] Then
			$v_string2 = $v_string2 & $s_text[$i]
		Else
			$v_string2 = $v_string2 & $s_text[$i] & @CRLF
		EndIf
	Next
	$v_label = GUICtrlCreateLabel($v_string2,$i_pos_x,$i_pos_y,$i_size_w,$i_size_h,$v_stile,$v_exstile)
	If $v_label == 0 Then Return 0
	Return $v_label
EndFunc