Visual Basic 6 - Collapse to TitleBar

Tramite il menu' opzioni della scheda NVidia ho l'opportunita' di settare nella ControBox degli elementi del PC (Cartelle,File,etc.) una simpatico Tasto che riduce le cose elencate in una semplice Titlebar.
Cliccando su questo Tasto,parlando di una applicazione,l'applicazione stessa sale come una tendina e si riduce ad una semplice Titlebar pur continuando a funzionare.

Ricliccando sul Tasto,l'applicazione scende giu'a tendina e torna in modalita' vbNormal.

Volevo sapere che in VB6 è possibile fare questo e con quali comandi.
E' una cosa molto simpatica.
Non posso postare ne esempi di codice,ne altro,perche' proprio non saprei cosa postare.

Grazie anticipate,Ciao

bè, se vuoi farlo solo sul tuo programma di vb è semplice, basta modificare il width del form... se invece vuoi "impostare questa proprietà" a tutte le finestre del sistema operativo la cosa si fa più complessa e non so neanche se possibile...

No no,gia' farlo sul mio programma basta e avanza.
Modifico il width del Form1?
Potresti gentilmente farmi un esempio,perche' penso per aggiungere un tasto dovro' creare qualcosa....credo..:-)
Maintendi proprio un tasto che collassa il soft e si vede in pratica solo la titleBar del soft pur essendo in esecuzione?
Ciao

Non la larghezza ma l'altezza deve essere modificata.

Quindi qualcosa come

Form1.Height = 100

o un valore che vuoi tu ...

Ok,grazie ho capito il senso per scrivere il codice.
Mi manca una cosa pero',come aggiungere un tasto sulla TitleBar.

Poi credo basti un if

Dim TastoTitle as Boolean
TastoTitle = False
Private Sub Collapse_Click()
if TastoTile = True Then
Form1.Height = 0
end if

if TastoTitle = False Then
Form1.Height = 500
End If
End Sub

piu' o meno...


Ciao

ehm già, non avevo riletto il post, a volte mi capitano queste sviste

ecco qua un esempio per aggiungere un pulsante alla titlebar:
planet-source-code.com/vb/scripts/…

Provato.
Tiro su il FORM,ma non torna giu'.

Public Sub Command1_Click()
        
    'Call modTray.AddTrayIcon(Me.hwnd, Me.Icon, "Hi!")
    'Me.WindowState = vbMinimized
    'Call modTray.ShowBalloon(Me.hwnd, strTitle, strInfo, [Information Icon])
    'Me.Hide
    
   Dim Command As Boolean
Command = False

If Command = True Then
   frmMain.Height = 100
   Command = False
  End If

If Command = False Then
   frmMain.Height = 300
  End If
'End Sub

End Sub

Naturalmente ci sono dei moduli richiamati dalla call INIT,ma li conoscerete visto
che il link me lo avete passato Voi.
Dove ho messo i rem (commenti) sono comandi aggiuntivi che a me nn servono
Ciao

non capisco a cosa serve quel pezzo di codice... è quello SOLO per "tirare giù" il form?

e comunque questo pezzo di codice non verrà mai eseguito:
If Command = True Then
frmMain.Height = 100
Command = False
End If

perchè se vedi prima di questo viene dichiarato:
command = false

quindi NON potrà MAI essere true...