Creating a "sensitive regions" image on a form

[Zorro]

Hi all
I would want to create a "sensitive regions" image on a form. For example,
it would be a european map where the user could select each country.
I know I could do it on a sheet using transparent shapes (one for each
country) on top of the image, but how could I do it on a UserForm?

Thank you

[Harald Staff]

Hi

You can use labels, transparent without border and caption, and code their
mousedown, click and/or mouseup events. Or you could "simply" hardcode the
regions of the image; far more work, far less components. Here a simple NSWE
example:

Private Sub Image1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

Dim S As String

Select Case X
Case 0 To Image1.Width / 2
S = " WEST"
Case Else
S = " EAST"
End Select
Select Case Y
Case 0 To Image1.Height / 2
S = "NORTH " & S
Case Else
S = "SOUTH " & S
End Select

MsgBox S
End Sub

HTH. Best wishes Harald

"Zorro" <zorro@vega.fr> skrev i melding
news:44658501$0$20170$8fcfb975@news.wanadoo.fr...
> Hi all
> I would want to create a "sensitive regions" image on a form. For example,
> it would be a european map where the user could select each country.
> I know I could do it on a sheet using transparent shapes (one for each
> country) on top of the image, but how could I do it on a UserForm?
>
> Thank you
>
>