Rez Extractor Error

 Private Sub ExtractRezFiles(ByVal FileName As String)
        Dim threadd As New ExtractThread With { _
             .FileName = FileName _
         }
  
        Thread(New ThreadStart(AddressOf threadd.Extract)).Start()

    End Sub

Error : Error	1	'Thread' is a type and cannot be used as an expression.	C:\Users\Deicide\documents\visual studio 2010\Projects\WindowsApplication1\WindowsApplication1\Form1.vb	17	9	WindowsApplication1