Example Code

    Private Sub ExtractRezFile(ByVal FileName As String)
        Dim extraction As New RezLib.ExtractThread With { _
        .FileName = FileName _
        }
        Dim start As New Threading.Thread(AddressOf extraction.Extract)
        start.Start()
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ExtractRezFile("REZ FILE PATH")
    End Sub