Pessoal, estrou querendo criar um efeito no meu projeto.
À medida que vai lendo a tabela de clientes, vai mostrando os registros numa label e uma barra de progresso vai sendo preenchida.
Tentei dessa maneira, mas não dá certo:
No módulo tenho a Sub:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
E no projeto:
Private Sub BtnOk_Click()
sqlcli = "Select * From Clientes Order by nomecli"
Set rscli = db.OpenRecordset(sqlcli)
While Not rscli.EOF
For i = 1 To 100
ProgBar.Value = i
LblRegistros.Caption = ""
LblRegistros.Caption = rscli("nomecli")
Sleep (5)
Next
rscli.MoveNext
Wend
End Sub
Dessa maneira, a barra é preenchida mas na Label apenas aparece o último registro lido. Eu gostaria de ir mostrando os nomes ao passo que vai lendo na tabela, sobrepondo os nomes que vão sendo lidos.
