Sub ShowLoginPanel
Dim p As Panel
Dim etun As EditText
Dim etpw As EditText
Dim lblun As Label
Dim lblpw As Label
p.Initialize("")
etun.Initialize("etun")
etpw.Initialize("etpw")
lblun.Initialize("")
lblpw.Initialize("")
etun.SingleLine = True
etpw.SingleLine = True
etpw.PasswordMode=True
Dim cd As CustomDialog
cd.AddView(p,2dip,0,90%x-4dip,220dip)
p.AddView(etun,40dip,80dip,p.Width-80dip,48dip)
p.AddView(etpw,40dip,150dip,p.Width-80dip,48dip)
p.AddView(lblun,40dip,60dip,p.Width-80dip,40dip)
p.AddView(lblpw,40dip,130dip,p.Width-80dip,40dip)
p.Color=Colors.Black
etun.Hint="Username"
etpw.Hint="Password"
lblun.Text="Username"
lblpw.Text="Password"
cd.Show("XverhelstX Login","Login","Cancel","",Null)
lblun.RequestFocus
If cd.Response = DialogResponse.CANCEL Then
'Cancel stuff
Return
End If
'Authenticate
LuLu.Authenticate(etun.Text ,etpw.Text )
End Sub