Bonjour,
Private Sub Form_Load()
Dim pnlX As Panel
' Ajoute une zone vide comme espacement
Set pnlX = StatusBar1.Panels.Add()
pnlX.AutoSize = sbrSpring
pnlX.MinWidth = 1
' Ajoute une zone avec l'icône d'une horloge et le style heure.
Set pnlX = StatusBar1.Panels.Add(, , , _
sbrTime, LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\icons\misc\clock03.ico"))
End Sub
jpleroisse
|