func _Mio1_ON($Obj, $CLR);, $NewTxt = '', $NewDim = '', $NewFnt = '', $NewStl = '', $NewCol = '')
	$XI=$Obj[0][2]
	$YI=$Obj[0][3]
	$XF=$Obj[0][2]+$Obj[0][4]-1
	$YF=$Obj[0][3]+$Obj[0][5]-1

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI, $XF-2, $YI, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF, $YI+2, $XF, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF, $XF-2, $YF, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI, $YI+2, $XI, $YF-2, $hPen)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[7])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+1, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect ($hGraphic, $XF-1, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect ($hGraphic, $XF-1, $YF-1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+1, $YF-1, 1, 1, $hBrush)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+1, $XF-2, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+2, $XF-1, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF-1, $XF-2, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+2, $XI+1, $YF-2, $hPen)

	$Add=1
	$MaxY = ($YF-$YI-3)/2
	If $MaxY <> int($MaxY) Then $Add=2

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+2, $YI+2, $XF-$XI-3, $MaxY, $hBrush)

	$left_color=StringSplit(dec(StringLeft($CLR[5],2)) & "|" & dec(StringMid($CLR[5],3,2)) & "|" & dec(StringRight($CLR[5],2)),  "|" )
	$right_color=StringSplit(dec(StringLeft($CLR[7],2)) & "|" & dec(StringMid($CLR[7],3,2)) & "|" & dec(StringRight($CLR[7],2)),  "|" )
	$color1=($left_color[1]-$right_color[1])/($MaxY)
	$color2=($left_color[2]-$right_color[2])/($MaxY)
	$color3=($left_color[3]-$right_color[3])/($MaxY)
	For $Y=1 to $MaxY
		$red=StringRight(hex(floor($left_color[1]-($Y*$color1))),2)
		$green=StringRight(hex(floor($left_color[2]-($Y*$color2))),2)
		$blue=StringRight(hex(floor($left_color[3]-($Y*$color3))),2)
		$col = $red & $green & $blue
		$hPen = _GDIPlus_PenCreate('0xFF' & $col , 1)
		_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $Y+$YI+$MaxY+$Add, $XF-2, $Y+$YI+$MaxY+$Add, $hPen)
	Next

	_GDIPlus_PenDispose($hPen)
	_GDIPlus_BrushDispose($hBrush)
EndFunc

func _Mio1_OFF($Obj, $CLR);, $NewTxt = '', $NewDim = '', $NewFnt = '', $NewStl = '', $NewCol = '')
	$XI=$Obj[0][2]
	$YI=$Obj[0][3]
	$XF=$Obj[0][2]+$Obj[0][4]-1
	$YF=$Obj[0][3]+$Obj[0][5]-1

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI, $XF-2, $YI, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF, $YI+2, $XF, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF, $XF-2, $YF, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI, $YI+2, $XI, $YF-2, $hPen)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[7])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+1, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect ($hGraphic, $XF-1, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect ($hGraphic, $XF-1, $YF-1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+1, $YF-1, 1, 1, $hBrush)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+1, $XF-2, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+2, $XF-1, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF-1, $XF-2, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+2, $XI+1, $YF-2, $hPen)

	$left_color=StringSplit(dec(StringLeft($CLR[7],2)) & "|" & dec(StringMid($CLR[7],3,2)) & "|" & dec(StringRight($CLR[7],2)),  "|" )
	$right_color=StringSplit(dec(StringLeft($CLR[5],2)) & "|" & dec(StringMid($CLR[5],3,2)) & "|" & dec(StringRight($CLR[5],2)),  "|" )
	$MaxY = ($Obj[0][5]-2)/2
	$color1=($left_color[1]-$right_color[1])/($MaxY)
	$color2=($left_color[2]-$right_color[2])/($MaxY)
	$color3=($left_color[3]-$right_color[3])/($MaxY)
	For $Y=2 to $MaxY
		$red=StringRight(hex(floor($left_color[1]-($Y*$color1))),2)
		$green=StringRight(hex(floor($left_color[2]-($Y*$color2))),2)
		$blue=StringRight(hex(floor($left_color[3]-($Y*$color3))),2)
		$col = $red & $green & $blue
		$hPen = _GDIPlus_PenCreate('0xFF' & $col , 1)
;~ 			_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $Y+$YI+($YF-$YI-2)/2, $XF-2, $Y+$YI+($YF-$YI-2)/2, $hPen)
		_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $Y+$YI, $XF-2, $Y+$YI, $hPen)
	Next

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+2, $YI+($YF-$YI)/2, $XF-$XI-3, ($YF-$YI-2)/2, $hBrush)

	_GDIPlus_PenDispose($hPen)
	_GDIPlus_BrushDispose($hBrush)
EndFunc

func _Mio2_ON($Obj, $CLR);, $NewTxt = '', $NewDim = '', $NewFnt = '', $NewStl = '', $NewCol = '')
	$XI=$Obj[0][2]
	$YI=$Obj[0][3]
	$XF=$Obj[0][2]+$Obj[0][4]-1
	$YF=$Obj[0][3]+$Obj[0][5]-1
#Region 1
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[9] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+1, $XI+3, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI,   $XF-4, $YI,   $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+4, $XF-1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YF-4, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-4, $YF-2, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF-1, $XF-4, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI,   $YI+4, $XI,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+2, $XI+1, $YI+3, $hPen)
#EndRegion 1
#Region 2
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+4, $YI+2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI+1, $XF-4, $YI+1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF,   $YI+4, $XF,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YF-3, $XF-1, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YF-1, $XF-2, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF,   $XF-4, $YF,   $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+4, $XI+1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+2, $YI+4, $hPen)
#EndRegion 2
#Region 3
	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[6])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+4, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+1, $YI+4, 1, 1, $hBrush)
#EndRegion 3
#Region 4
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YI+1, $XF-2, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YI+3, $XF-2, $YF-5, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+3, $YF-2, $XF-5, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YF-2, $XI+1, $YF-3, $hPen)
#EndRegion 4
#Region 5
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+5, $YI+2, $XF-3, $YI+2, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+2, $XF-1, $YI+3, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF-1, $XI+3, $YF-1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+5, $XI+2, $YF-3, $hPen)
#EndRegion 5
#Region 6
	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[3])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-2, $YF-2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-4, $YF-1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-1, $YF-4, 1, 1, $hBrush)
#EndRegion 6
#Region 7
	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YF-2, 1, 1, $hBrush)
#EndRegion 7
	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+3, $YI+3, $XF-$XI-5, $YF-$YI-5, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[1])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+3, $YI+3, 1, 1, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[7])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-3, $YF-3, 1, 1, $hBrush)

	_GDIPlus_PenDispose($hPen)
	_GDIPlus_BrushDispose($hBrush)
EndFunc

func _Mio2_OFF($Obj, $CLR);, $NewTxt = '', $NewDim = '', $NewFnt = '', $NewStl = '', $NewCol = '')
	$XI=$Obj[0][2]
	$YI=$Obj[0][3]
	$XF=$Obj[0][2]+$Obj[0][4]-1
	$YF=$Obj[0][3]+$Obj[0][5]-1

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[9] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+1, $XI+3, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI,   $XF-4, $YI,   $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[2] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+4, $XF-1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YF-4, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-4, $YF-2, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF-1, $XF-4, $YF-1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[9] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI,   $YI+4, $XI,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+2, $XI+1, $YI+3, $hPen)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF,   $YI+4, $XF,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YF-3, $XF-1, $YF-2, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+4, $YI+2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI+1, $XF-4, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+4, $XI+1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+2, $YI+4, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YF-1, $XF-2, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF,   $XF-4, $YF,   $hPen)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YI+1, $XF-2, $YI+1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)												;5
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YI+3, $XF-2, $YF-5, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+3, $YF-2, $XF-5, $YF-2, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YF-2, $XI+1, $YF-3, $hPen)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[8])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+4, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+1, $YI+4, 1, 1, $hBrush)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[6] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+5, $YI+2, $XF-3, $YI+2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+2, $XF-1, $YI+3, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF-1, $XI+3, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+5, $XI+2, $YF-3, $hPen)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[4])											;5
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YF-2, 1, 1, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+3, $YI+3, $XF-$XI-5, $YF-$YI-5, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[3])											;5
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-3, $YF-3, 1, 1, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[6])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+3, $YI+3, 1, 1, $hBrush)

	_GDIPlus_PenDispose($hPen)
	_GDIPlus_BrushDispose($hBrush)
EndFunc

func _Mio3_ON($Obj, $CLR);, $NewTxt = '', $NewDim = '', $NewFnt = '', $NewStl = '', $NewCol = '')
	$XI=$Obj[0][2]
	$YI=$Obj[0][3]
	$XF=$Obj[0][2]+$Obj[0][4]-1
	$YF=$Obj[0][3]+$Obj[0][5]-1
#Region 1
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[9] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+1, $XI+3, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI,   $XF-4, $YI,   $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+4, $XF-1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YF-4, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-4, $YF-2, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF-1, $XF-4, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI,   $YI+4, $XI,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+2, $XI+1, $YI+3, $hPen)
#EndRegion 1
#Region 2
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+4, $YI+2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI+1, $XF-4, $YI+1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF,   $YI+4, $XF,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YF-3, $XF-1, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YF-1, $XF-2, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF,   $XF-4, $YF,   $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+4, $XI+1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+2, $YI+4, $hPen)
#EndRegion 2
#Region 3
	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[6])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+4, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+1, $YI+4, 1, 1, $hBrush)
#EndRegion 3
#Region 4

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YI+1, $XF-2, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YI+3, $XF-2, $YF-5, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+3, $YF-2, $XF-5, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YF-2, $XI+1, $YF-3, $hPen)
#EndRegion 4
#Region 5
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+5, $YI+2, $XF-3, $YI+2, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+2, $XF-1, $YI+3, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF-1, $XI+3, $YF-1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+5, $XI+2, $YF-3, $hPen)
#EndRegion 5
#Region 6
	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[3])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-2, $YF-2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-4, $YF-1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-1, $YF-4, 1, 1, $hBrush)
#EndRegion 6
#Region 7
	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YF-2, 1, 1, $hBrush)
#EndRegion 7
	$Add=1
	$MaxY = ($YF-$YI-4)/2
	If $MaxY <> int($MaxY) Then $Add=2

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+3, $YI+3, $XF-$XI-5, $MaxY, $hBrush)

	$left_color=StringSplit(dec(StringLeft($CLR[5],2)) & "|" & dec(StringMid($CLR[5],3,2)) & "|" & dec(StringRight($CLR[5],2)),  "|" )
	$right_color=StringSplit(dec(StringLeft($CLR[7],2)) & "|" & dec(StringMid($CLR[7],3,2)) & "|" & dec(StringRight($CLR[7],2)),  "|" )
	$color1=($left_color[1]-$right_color[1])/($MaxY)
	$color2=($left_color[2]-$right_color[2])/($MaxY)
	$color3=($left_color[3]-$right_color[3])/($MaxY)
	For $Y=1 to $MaxY
		$red=StringRight(hex(floor($left_color[1]-($Y*$color1))),2)
		$green=StringRight(hex(floor($left_color[2]-($Y*$color2))),2)
		$blue=StringRight(hex(floor($left_color[3]-($Y*$color3))),2)
		$col = $red & $green & $blue
		$hPen = _GDIPlus_PenCreate('0xFF' & $col , 1)
		_GDIPlus_GraphicsDrawLine($hGraphic, $XI+3, $Y+$YI+$MaxY+$Add, $XF-3, $Y+$YI+$MaxY+$Add, $hPen)
	Next

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[1])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+3, $YI+3, 1, 1, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[7])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-3, $YF-3, 1, 1, $hBrush)

	_GDIPlus_PenDispose($hPen)
	_GDIPlus_BrushDispose($hBrush)
EndFunc

func _Mio3_OFF($Obj, $CLR);, $NewTxt = '', $NewDim = '', $NewFnt = '', $NewStl = '', $NewCol = '')
	$XI=$Obj[0][2]
	$YI=$Obj[0][3]
	$XF=$Obj[0][2]+$Obj[0][4]-1
	$YF=$Obj[0][3]+$Obj[0][5]-1

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[9] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+1, $XI+3, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI,   $XF-4, $YI,   $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[2] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+4, $XF-1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YF-4, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-4, $YF-2, $XF-2, $YF-2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF-1, $XF-4, $YF-1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[9] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI,   $YI+4, $XI,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+2, $XI+1, $YI+3, $hPen)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF,   $YI+4, $XF,   $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YF-3, $XF-1, $YF-2, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+4, $YI+2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YI+1, $XF-4, $YI+1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YI+4, $XI+1, $YF-4, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+2, $XI+2, $YI+4, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[1] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YF-1, $XF-2, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+4, $YF,   $XF-4, $YF,   $hPen)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-3, $YI+1, $XF-2, $YI+1, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[3] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-2, $YI+3, $XF-2, $YF-5, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+3, $YF-2, $XF-5, $YF-2, $hPen)
	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[7] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+1, $YF-2, $XI+1, $YF-3, $hPen)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[8])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+4, $YI+1, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+1, $YI+4, 1, 1, $hBrush)

	$hPen = _GDIPlus_PenCreate('0xFF' & $CLR[6] , 1)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+5, $YI+2, $XF-3, $YI+2, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XF-1, $YI+2, $XF-1, $YI+3, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YF-1, $XI+3, $YF-1, $hPen)
	_GDIPlus_GraphicsDrawLine($hGraphic, $XI+2, $YI+5, $XI+2, $YF-3, $hPen)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[4])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-2, $YI+2, 1, 1, $hBrush)
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+2, $YF-2, 1, 1, $hBrush)

	$Add=1
	$MaxY = ($YF-$YI-4)/2
	If $MaxY <> int($MaxY) Then $Add=2

	$left_color=StringSplit(dec(StringLeft($CLR[7],2)) & "|" & dec(StringMid($CLR[7],3,2)) & "|" & dec(StringRight($CLR[7],2)),  "|" )
	$right_color=StringSplit(dec(StringLeft($CLR[5],2)) & "|" & dec(StringMid($CLR[5],3,2)) & "|" & dec(StringRight($CLR[5],2)),  "|" )
	$MaxY = ($Obj[0][5]-3)/2
	$color1=($left_color[1]-$right_color[1])/($MaxY)
	$color2=($left_color[2]-$right_color[2])/($MaxY)
	$color3=($left_color[3]-$right_color[3])/($MaxY)
	For $Y=3 to $MaxY
		$red=StringRight(hex(floor($left_color[1]-($Y*$color1))),2)
		$green=StringRight(hex(floor($left_color[2]-($Y*$color2))),2)
		$blue=StringRight(hex(floor($left_color[3]-($Y*$color3))),2)
		$col = $red & $green & $blue
		$hPen = _GDIPlus_PenCreate('0xFF' & $col , 1)
		_GDIPlus_GraphicsDrawLine($hGraphic, $XI+3, $Y+$YI, $XF-3, $Y+$YI, $hPen)
	Next

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[5])
	_GDIPlus_GraphicsFillRect ($hGraphic, $XI+3, $YI+$MaxY, $XF-$XI-5, $MaxY, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[3])
	_GDIPlus_GraphicsFillRect($hGraphic, $XF-3, $YF-3, 1, 1, $hBrush)

	$hBrush = _GDIPlus_BrushCreateSolid('0xFF' & $CLR[6])
	_GDIPlus_GraphicsFillRect($hGraphic, $XI+3, $YI+3, 1, 1, $hBrush)

	_GDIPlus_PenDispose($hPen)
	_GDIPlus_BrushDispose($hBrush)
EndFunc