Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Truc As IPictureDisp Private Sub Command1_Click() Picture1.Picture = Truc Me.Refresh End Sub Private Sub Form_Load() Set Truc = LoadPicture("C:\Documents and Settings\moi\Mes documents\Mes images\Castor.bmp") End Sub