19 lines
290 B
Text
19 lines
290 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
'Situar dentro de FMain
|
||
|
|
Me.X = FMain.X + 20
|
||
|
|
Me.Y = FMain.Y + 40
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub botonAbandonar_Click()
|
||
|
|
' No sabe clave o quiere salir
|
||
|
|
Quit
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub botonAceptar_Click()
|
||
|
|
FMain.RootPassword = txtRootPassword.Text
|
||
|
|
Me.Close
|
||
|
|
End
|