Chi mi sa dire dove sbaglio

[Roby]

Ciao.
Qualcuno potrebbe dirmi dove sbaglio?
Grazie.
Sub Main()

Dim a

With Testo
.Titolo "Esempio Cadenze"
.Out "Ruota di " + NomeRuota(csBA)
.Out "Visualizza le estrazioni con almeno 2 nr. della Cadenza 3"
.Out
.Colore csRosso
End With

For a = Estrazione.Inizio("bari") To Estrazione.Fine
If Estratti.Cadenza (a, csBA, 5) > 2 Then
Testut Estrazione.Data(a, 1), Estrazione.Estratti(a, csBA)
End If
Next

End Sub
L'ho trovato dove non ricordo.
Grazie.

 

[LuigiB]

ciao , questo script non è ne per lottodesk ne per spaziopmetria , probabilmente è per visual lotto o qualche altro programma sconosciuto.

 

[joi_lotto]

Grazie Luigi B.

Gentilissimo come sempre.

Ciao.