Hi,

Can anyone help me with this problem.

I created 4 pictureboxes ... With an event handler (mouseenter, mouseleave)
i can let the picturebox grow (mouseEnter) and shrink (mouseleave) to default
height en width (separated)
I wish now that if i mouseenter a picturebox , he will grow (he already
does) and all the other pictureboxes shrink less then default height en width
...the problem is how to acces the others

I used the following code :

Private Sub pictures_MouseEnter(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Dim pic As PictureBox = sender
Select Case sender.name
Case "pictnieuw"
pic.Image = Image.FromFile("d:\iconen\nieuw48.png")
Lblnieuw.Visible = True
Case "pictsave"
pic.Image = Image.FromFile("d:\iconen\save48.png")
Lblsave.Visible = True
Case "pictsearch"
pic.Image = Image.FromFile("d:\iconen\search48.png")
Lblsearch.Visible = True
Case "pictdel"
pic.Image = Image.FromFile("d:\iconen\del48.png")
Lbldel.Visible = True

Private Sub pictures_MouseLeave(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Dim pic As PictureBox = sender
Select Case sender.name
Case "pictnieuw"
pic.Image = Image.FromFile("d:\iconen\nieuw32.png")
Lblnieuw.Visible = False
Case "pictsave"
pic.Image = Image.FromFile("d:\iconen\save32.png")
Lblsave.Visible = False
Case "pictsearch"
pic.Image = Image.FromFile("d:\iconen\search32.png")
Lblsearch.Visible = False
Case "pictdel"
pic.Image = Image.FromFile("d:\iconen\del32.png")
Lbldel.Visible = False
End Select
End Sub
Is this possible ?

(sorry for my broken English)

Luc

Archived from group: microsoft>public>vb>syntax