В прозрачных контролах есть один недостаток - прозрачная часть не реагирует на события (например на щелчок мыши). Это можно исправить, имитируя прозрачность путем копирования в контрол изображения родительской формы. Для примера поставьте на контрол 2 PictureBox с названиями PicImage и PicMask. Установите у них свойства BorderStyle=0, AutoSize=True, AutoRedraw=True, Visible=False. Загрузите в одно из них изображение, в другое - маску. Установите у контрола свойствa BackStyle=1 и AutoRedraw=True. Для наглядности поместите на форму, где будет находиться контрол какой-нибудь рисунок. Введите следующий код
Private Sub UserControl_Show()
' Подгоняем размер контрола к размеру картинки
UserControl.Width = PicImage.Width
UserControl.Height = PicImage.Height
' Для каждого контрола в родительской форме
For Each Control In Parent.Controls
' Если контрол соответствует нашему контролу
If Control.Name = Ambient.DisplayName Then
' Копируем изображение с родительской формы
PaintPicture Parent.Image, 0, 0, Width, Height, _
Control.Left, Control.Top, Width, Height
' Накладываем маску
PaintPicture PicMask.Picture, 0, 0, , , , , , , vbSrcAnd
' Накладываем изображение
PaintPicture PicImage.Picture, 0, 0, , , , , , , vbSrcPaint
Exit For
End If
Next
End Sub