I pug the Public WithEvents img As New ClassWithEvent() and visual studio
2005 have me change it back to
Dim img As New ClassWithEvent()

And still not working?

I changeed everthing back to img   Dim img = New ClassWithEvent(),

Public WithEvents img As ClassWithEvent
   Protected Sub img_ReportImageScale(ByVal ScaledSize As Integer) Handles
img.ReportImageScale
       Me.nud1.Value = ScaledSize
   End Sub

and still not working, any other ideas?

I have put both this in the module or on the form it's self (Public
WithEvents obj As ClassWithEvent)

and took this (obj = New ClassWithEvent) out and still get an error saying
that I need to "Use the New keyword to create an object instance"..

and if I put it in the module this line gets an error:

Protected Sub img_ReportImageScale(ByVal ScaledSize As Integer) Handles
img.ReportImageScale
       Me.nud1.Value = ScaledSize
   End Sub

------------------------------------------------------------------------------ here is my corrected code:

Here is my class:

Public Class ClassWithEvent

   Public Event ReportImageScale(ByVal ScaledSize As Integer)

  Public Function GetThumbNailSize(ByVal strImagePath As String, ByVal
iScaleSize As Integer, _
   Optional ByVal ScaleWidth As Integer = 0, Optional ByVal ScaleHeight As
Integer = 0) As Size

       If System.IO.File.Exists(strImagePath) Then

           Dim iW As Integer = 0
           Dim iH As Integer = 0

           Try
               Dim iThumb As Image = Image.FromFile(strImagePath)

               If ScaleWidth = 0 And ScaleHeight = 0 Then
                   Dim X As Double = (iScaleSize * 0.01)
                   iW = CInt(iThumb.Width * X)
                   iH = CInt(iThumb.Height * X)
               Else
                   Dim bTrue As Boolean = False

                   Do Until bTrue = True
                       Dim X As Double = (iScaleSize * 0.01)
                       iW = CInt(iThumb.Width * X)
                       iH = CInt(iThumb.Height * X)

                       If iW <= ScaleWidth And iH <= ScaleHeight Then
                           bTrue = True
                           RaiseEvent ReportImageScale(iScaleSize)
                       End If
                       iScaleSize -= 1

                       System.Windows.Forms.Application.DoEvents()
                   Loop

               End If

               GetThumbNailSize.Width = iW
               GetThumbNailSize.Height = iH

               Return GetThumbNailSize

           Catch ex As Exception
               Call mdlMain.LogError(ex.Message)
           End Try
       End If

   End Function

End Class

This is on my form:

Here is when I call ReportImageScale:
Class Form1

Here is when the event gets fired in the app:

   Public WithEvents img As ClassWithEvent
   Protected Sub img_ReportImageScale(ByVal ScaledSize As Integer) Handles
img.ReportImageScale
       Me.nud1.Value = ScaledSize
   End Sub

Dim img = New ClassWithEvent()

           If Not Me.pb1.Image Is Nothing Then Me.pb1.Image.Dispose()
           Me.pb1.Size = img.GetThumbNailSize(pstrLogoPath, 100,
Me.pbDark.Width - 15, Me.pbDark.Height - 15)
           Me.pb1.Image = img.GetThumbNail(pstrLogoPath, 100,
Me.pbDark.Width - 15, Me.pbDark.Height - 15)
           Me.pb1.Left = (Me.pbDark.Left + (Me.pbDark.Width / 2)) -
(Me.pb1.Width / 2)
           Me.pb1.Top = (Me.pbDark.Top + (Me.pbDark.Height / 2)) -
(Me.pb1.Height / 2)
           Me.pb1.Visible = True

End class

I have done simple version os this and it works,, I don't see why it isn't
working..