Par exemple :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form6.Show()
Form6.ProgressBar1.Value = 20
Form6.Label1.Text = "Configuration et ouverture du port série..."
Form6.Label1.Refresh()
'Configuration du Port série
XMCommCRC1.CommPort = 1 'Port Com1
XMCommCRC1.Settings = "9600,N,8,1" '9600 Baud par sec, pas de Bit de parité, 8 Bits de données, 1 Bit de Stop
XMCommCRC1.PortOpen = True 'Ouverture du port série
Form6.ProgressBar1.Value = 60
Form6.Label1.Text = "Lancement d'Excel..."
Form6.Label1.Refresh()
appExcel = CreateObject("Excel.application") 'Ouverture d'excel ( sans aparaitre à l'écran )
End Sub
_______________________
Imports System.Thinking
'La vie Roxxx un max à qui s'en donne la peine