funzione sleep

[BOYROMA1]

dove va dichiarata la funzione sleep??

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

????

[xegallo]

come ogni declare nella sezione dichiarazioni del file sia esso una classe o un modulo

[BOYROMA1]

come mai a me non funziona??

DataReport15.Sections.Item("Section1").Controls.Item("Label1").Visible = True

DataReport15.Sections.Item("Section1").Controls.Item("Label1").Caption = "2"

Dim strFiltro19 As String
strFiltro19 = "cont = " & Data1.Recordset("cont")
DataEnvironment1.rsCommand2.Filter = strFiltro19

DataReport15.PrintReport









Sleep = 10000







DataReport15.Sections.Item("Section1").Controls.Item("Label1").Visible = True

DataReport15.Sections.Item("Section1").Controls.Item("Label1").Caption = "3"

Dim strFiltro18 As String
strFiltro18 = "cont = " & Data1.Recordset("cont")
DataEnvironment1.rsCommand2.Filter = strFiltro18

DataReport15.PrintReport

nel modulo ho dichiarato



Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

[ans]

è una procedura mica una variabile e poi se la dichiari in un modulo e la vuoi richiamare all'esterno devi dichiararla public non private.

[BOYROMA1]

giusto grazie

[BOYROMA1]

come mai mi stampa solo il primo?

If Val(Text67.Text) = 2 Then



DataReport15.Sections.Item("Section1").Controls.Item("Label1").Visible = True
DataReport15.Sections.Item("Section1").Controls.Item("Label2").Visible = False

DataReport15.Sections.Item("Section1").Controls.Item("Label1").Caption = "1"

Dim strFiltro16 As String
strFiltro16 = "cont = " & Data1.Recordset("cont")
DataEnvironment1.rsCommand2.Filter = strFiltro16

DataReport15.PrintReport



Sleep 2000




DataReport15.Sections.Item("Section1").Controls.Item("Label1").Visible = True
DataReport15.Sections.Item("Section1").Controls.Item("Label2").Visible = False

DataReport15.Sections.Item("Section1").Controls.Item("Label1").Caption = "2"

Dim strFiltro17 As String
strFiltro17 = "cont = " & Data1.Recordset("cont")
DataEnvironment1.rsCommand2.Filter = strFiltro17

DataReport15.PrintReport

Exit Sub

End If

dove sbaglio?