VBA -Form transparent

ActiveSheet.Shapes(1).Fill.Visible = msoFalse
VasteMonde