Ciao alka Piacere di fare la tua conoscenza
Ascolta : Tu hai ragione da vendere nel dire quanto descritto da te nei miei confronti
Però ci terrei a precisare un paio di cose :

1) Quanto riportato da me Funziona benissimo se lo inserisco in un Userform di Excel e ancora meglio se lo adatto al VB6.0

Il problema e che da quando ho dovuto cambiare pc
Passando dai 32 bit hai 64 bit il vb6.0 non e più disponibile
Pertanto a mio malgrado sono dovuto passare dal VB6.0 al VBA e poi successivamente al Visual Studio 2022
Tutto ciò mi ha penalizzato molto , perché i programmi precedenti tolto via il vba mi davano soddisfazioni immense
Ora con questo nuovo programma trovo tutto molto più difficile nel voler fare anche solo le cose più banali.

2) capisco da me che riprendere i miei vecchi progetti e riadattarli a questa nuova applicazione e molto ardua da parte mia senza neppure conoscere la sua struttura.
Ma da qualche parte dovrò pur cercare di partire No ?

3) Come so da me che senza il vostro aiuto concreto non riuscirei a ricavare nulla

In più ti posso assicurare ché tante cose che hai visto all'interno del mio progettino
In questo contesto non servono a nulla
Perché sono parte di un progetto diviso a metà di qui
Una prima parte ho cercato di creare un form che si muovesse quando lo trascinavo con il mouse
E questo fortunatamente sono riuscito a risolverlo
E in questo form stavo cercando di ottenere una chiusura con l'uso di Me.Height e Me.Width par dare l'effetto di chiusura a scomparsa.
Tutto qui.
Ma ripeto essendo alle prime armi la vedo dura poter realizzare tutto ciò senza l'aiuto concreto di qualcuno di voi
Ma non importa prima ho poi riuscirò a tirare fuori un qualcosa di valido .

Tu mi hai detto giustamente che non c'é nessuna corrispondenza sul fattore (Timer)

Ma ho voluto provare anche ad usare sia il timer come oggetto (Timer1) e sia questo formato :

codice:
   Sub Chiudi_In_Modo_Vert()
        On Error Resume Next
        Me.Label2.Text = 35
10:
        Dim PauseTime, Start


        PauseTime = 1
        Start = Timer
        Do While Timer < Start + PauseTime
            DoEvents()
        Loop




        Me.Label2.Text = Me.Label2.Text - 1
        If Me.Label2.Text = 0 Then
            ' Ferma Il Ciclo
            End
            Exit Sub
        End If
        GoTo 10
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call Chiudi_In_Modo_Vert()
    End Sub
Ma anche in questo caso non succede nulla!
Ciao e Grazie per le tue delucidazioni in merito
Saluti da Maurizio