Private Sub Form_Resize() If WindowState <> vbMinimized Then '#La picture1 prendra toute la place disponible ... 'Picture1.Move 0, 0, ScaleWidth, ScaleHeight With Picture1 .Width = ScaleWidth - .Left '- MargeDroite .Height = ScaleHeight - .Top '- MargeBasse End With End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question