new problem with skinning mesh

[rifter1818]

Ok i finnally got my skinning mesh to render, and now when i move on to the next stage (enter a battle in this case) all my other meshs, disapear, however if i rem out the Tiny.drawmesh 'tiny is my skinning mesh test case, the meshs render fine, however i cant find whats being changed, ive tried reseting everything i notice on the device being changed (transforms,renderstate) but this is to no avail.

        Public Sub drawMesh()
            DrawFrame(RootFrame.FrameHierarchy)
        End Sub
        Private Sub DrawFrame(ByRef frame As hFrame)
            Dim mesh As hMeshContainer = frame.MeshContainer
            While Not (mesh Is Nothing)
                DrawMeshContainer(mesh, frame)
                mesh = mesh.NextContainer
            End While
            If Not (frame.FrameSibling Is Nothing) Then
                DrawFrame(frame.FrameSibling)
            End If
            If Not (frame.FrameFirstChild Is Nothing) Then
                DrawFrame(frame.FrameFirstChild)
            End If
        End Sub
        Protected Overridable Sub DrawMeshContainer(ByRef mesh As hMeshContainer, ByRef frame As hFrame)
            Dim i As Integer
            If Not (mesh.SkinInformation Is Nothing) Then
                Dim attribIdPrev As Integer = -1
                Dim iattrib As Integer
                For iattrib = 0 To mesh.numAttr - 1
                    Dim numBlend As Integer = 0
                    Dim bones() As BoneCombination = mesh.bones
                    For i = 0 To mesh.numInfl - 1
                        If (bones(iattrib).BoneId(i) <> -1) Then
                            numBlend = i
                        End If
                    Next
                    If (iDev.DeviceCaps.MaxVertexBlendMatrices >= numBlend + 1) Then
                        iDev.RenderState.VertexBlend = numBlend
                        Dim offsetMatrices As Matrix() = mesh.offsetMatrices
                        Dim frameMatrices() As hFrame = mesh.frameMatrices
                        For i = 0 To mesh.numInfl - 1
                            Dim matrixIndex As Integer
                            matrixIndex = bones(iattrib).BoneId(i)
                            If (matrixIndex <> -1) Then
                                Dim tempMatrix As Matrix = Matrix.Multiply(offsetMatrices(matrixIndex), frameMatrices(matrixIndex).cMat)
                                iDev.Transform.SetWorldMatrixByIndex(i, tempMatrix)
                            End If
                        Next
                        If ((attribIdPrev <> bones(iattrib).AttribId) Or attribIdPrev = -1) Then
                            iDev.Material = mesh.GetMaterials()(bones(iattrib).AttribId).Material3D
                            iDev.SetTexture(0, mesh.meshTextures(bones(iattrib).AttribId))
                            attribIdPrev = bones(iattrib).AttribId
                        End If
                        mesh.MeshData.Mesh.DrawSubset(iattrib)
                    End If
                Next
            Else
                iDev.Transform.World = frame.cMat
                Dim mtrl() As ExtendedMaterial = mesh.GetMaterials
                Dim iMaterial As Integer
                For iMaterial = 0 To mtrl.Length - 1
                    iDev.Material = mtrl(iMaterial).Material3D
                    iDev.SetTexture(0, mesh.meshTextures(iMaterial))
                    mesh.MeshData.Mesh.DrawSubset(iMaterial)
                Next
            End If
        End Sub

Any Ideas whats getting changed (iDev is the device).