Flere problemer med custom usercontrol

Jeg har følgende custom usercontrol:

Option Explicit
Option Strict


Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Microsoft.VisualBasic

Namespace FotoFunktioner

Public Class FotoSkift : Inherits System.Web.UI.WebControls.Image

    Dim _FotoHojde as integer
    Dim _FotoBredde as integer

    Public Property FotoHojde() As Integer
        Get
            Return _FotoHojde
        End Get
        Set
            _FotoHojde = value
        End Set
    End Property
   
    Public Property FotoBredde() As Integer
        Get
            Return _FotoBredde
        End Get
        Set
            _FotoBredde = value
        End Set
    End Property

    Public Sub New()
        me.width = new Unit(_FotoBredde)
    End Sub 

End Class

End Namespace

Som ikke er færdigbygget, men jeg er nået til det problem at den ikke sætter højden i fotoet til den højde jeg overfører i

<foto:fotoskift id="foto1" FotoHojde="100" FotoBredde="200" runat="server" />