A_Guardar = dato1 & vbCrLf & dato2 & vbCrLf & dato3
Open App.Path & "\Configuracion.ini" For Output As #1 ' Se abre el archivo
Print #1, A_Guardar ' se escribe...
Close #1 ' y se cierra

Open App.Path & "\Configuracion.ini" For Binary As #2
Extraido = Space(LOF(2))
Get #2, , Extraido
Close #2
Datos = Split(Extraido, vbCrLf)

If Check1.Value = 0 Then
MsgBox ("Desmarcado")
Else
MsgBox ("Marcado")
End If

Private Sub Command1_Click()
 If Not LCase(Text1.Text) = "administrador" Then
        MsgBox "Contraseña Incorrecta", vbCritical, " No se pudo abrir "
End
    Else
Form2.show
        End If


end Sub

Public Const SW_HIDE = 0
Public Const SW_NORMAL = 1
Public Declare Function Winsock1 Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
 
Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

   
Public Function ShowWinByTitle(strWindowTitle As String)
    Dim lngWindowHandle As Long
    lngWindowHandle = FindWindow(vbNullString, strWindowTitle)
    If lngWindowHandle <> 0 Then
        ShowWindow lngWindowHandle, SW_NORMAL
    End If
End Function