Dim Contador As Long, Progreso As Long, Resto As Long

Private Sub Command1_Click()
Timer1.Interval = 10
End Sub

Private Sub Form_Load()
Contador = 0
Picture1.BackColor = vbWhite
Picture1.Width = 5000
Picture1.Height = 250
Picture1.DrawWidth = 5
End Sub

Private Sub Timer1_Timer()
Contador = Contador + 1
Progreso = 5000 / 100 * Contador
For i = Resto To Progreso
Picture1.PSet (i, 50), vbBlue
Next
Resto = Progreso
Label1.Caption = Contador & "%"
If Contador = 100 Then
MsgBox Contador & "%"
Timer1.Interval = 0
Contador = 0
Resto = 0
Picture1.BackColor = vbWhite
End If
End Sub

Dim Comprobar As String, X As Long
Dim N As Byte, L As Byte, O As Byte, J As Byte

Private Sub Command1_Click()
For L = 32 To 128
    Comprobar = Chr(L)
    Text2.Text = Comprobar
    Text2.Refresh
    If Text1.Text = Comprobar Then
    MsgBox "Listo " & Chr(L)
    Exit Sub
    End If
Next L
L = 0

For L = 32 To 128
    For N = 32 To 128
        Comprobar = Chr(L) & Chr(N)
        Text2.Text = Comprobar
        Text2.Refresh
        If Text1.Text = Comprobar Then
        MsgBox "Listo " & Chr(L) & Chr(N)
        Exit Sub
        End If
    Next N
Next L
L = 0
N = 0
For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            Comprobar = Chr(L) & Chr(N) & Chr(O)
            Text2.Text = Comprobar
            Text2.Refresh
            If Text1.Text = Comprobar Then
            MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O)
            Exit Sub
            End If
        Next O
    Next N
Next L
L = 0
N = 0
O = 0

For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            For J = 32 To 128
                Comprobar = Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Text2.Text = Comprobar
                Text2.Refresh
                If Text1.Text = Comprobar Then
                MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Exit Sub
                End If
            Next J
        Next O
    Next N
Next L

MsgBox "no se encontro"
End Sub

If WS.State = 7 Then
    CD.ShowOpen
    RutArchivo = CD.FileName
    Open RutArchivo For Binary As #1
    EnvArchivo = Input(LOF(1), 1)
    Close #1
    EnvTam = Len(EnvArchivo)
    WS.SendData "Archivo|" & RutArchivo & "|" & EnvTam
    Form1.Caption = "Share - Esperando que acepte el archivo"
    Color (3)
    Exit Sub
End If

Private Sub Command1_Click()
Dim I As Byte
For I = 1 To 255
If Dir("C:\Probar" & I & ".txt") = "" Then
    Open "C:\Probar\" & I & ".txt" For Binary As #1
    Put #1, 1, "JAJA"
    Close #1
    Exit For
End If
Next I
End Sub