hey again ;o)
so now i find a solution for my first problem without goto..... i put all about printers in a function and it runs not bad ;o)
but no my userform shows not the actual text...
here a small prog:
code:
 
$Form = CreateObject("Kixtart.Form")
$form.visible = 0
$xform=400
$yform=400
$Form.Show
$Form.Caption = "Loginscript CAD-Zentrum"
$Form.Width = $xform
$Form.Height = $yform
$Form.Center
$Form.Backcolor = 82,136,191
$Form.Show
$form.forecolor = 255,255,255
$form.drawwidth = 3
;Vertikale Linien
$form.line (80,8,80,70)
$form.line (80,89,80,$yform-35)
;Horizontale Linien
$form.line (8,80,70,80)
$form.line (90,80,$xform-16,80)
$form.circle (80,80,10)



;$cbgo.enabled=0
$cbende=$form.commandbutton("test",$xform-95,$yform-80,80)
$cbende.onclick = "test"

$xtab=100
$Tab=160
$Form.FontSize = 11
$Form.ForeColor = 0,0,0; Black
$Form.PrintXY($xtab,120, "Benutzername:")
$Form.PrintXY($xtab+$tab,120, @userid )
$Form.PrintXY($xtab,140, "Vollständiger Name:")
$Form.PrintXY($xtab+$tab,140, @fullname )
$Form.PrintXY($xtab,160, "Loginserver:")
$Form.PrintXY($xtab+$tab,160, @lserver )
$Form.PrintXY($xtab,180, "Computername:")
$Form.PrintXY($xtab+$tab,180, @wksta )
$Form.PrintXY($xtab,200, "Passwortalter (Tage):")
$Form.PrintXY($xtab+$tab,200, @pwage )
$Form.PrintXY($xtab,220, "Anzahl Netzwerkdrucker:")
$Form.PrintXY($xtab+$tab,220, $anzahlprinterconnection)
$Form.PrintXY($xtab,240, "Standarddrucker:")
$Form.PrintXY($tab,260, $defprintername )
;**************************************************
While $Form.Visible
  $=Execute($Form.DoEvents())
Loop
Exit 1

Function test
	$anzahlprinterconnection = 1
	$defprintername = "Testprinter"
EndFunction
if i click on the button then set the two variables, after that i want to show the changed text in my userform...
any idea

guenti