18 lines
290 B
Text
18 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
|