Private Sub PictureBox4_MouseEnter(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles PictureBox4.MouseEnter
        PictureBox4.BorderStyle = BorderStyle.Fixed3D
    End Sub
 
    Private Sub PictureBox4_MouseLeave(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles PictureBox4.MouseLeave
        PictureBox4.BorderStyle = BorderStyle.None
    End Sub