When the TransparentMode property is set to 2 (two), this property defines how transparent a picture is displayed, ranging from 0 (zero, fully transparent) to 100 (opaque or solid). The next script contains an example of using this property.

Sub DrawPicture1_Click()
  ' Leaves this picture transparent
  ' when clicking this object
  TransparentMode = 2 ' ByPercent
  TransparentPercent = 50 ' 50% transparent
End Sub