Public Sub MiniMap_Render()

    If DirectDevice.TestCooperativeLevel <> D3D_OK Then Exit Sub

    X = MiniMap.X
    Y = MiniMap.Y

    With MiniMap

        If Not .Texture Is Nothing Then

            .Texture.GetLevelDesc 0, SRDesc

            SrcWidth = 100    'd3dtextures.texwidth
            Width = 100    'd3dtextures.texwidth
            Height = 100    'd3dtextures.texheight
            SrcHeight = 100    'd3dtextures.texheight

            'Set the texture
            Call SpriteBatch.SetTexture(.Texture)
            Call SpriteBatch.Draw(X, Y, Width, Height, .Color(), SrcWidth / TexWidth + 0.001, SrcHeight / TexHeight + 0.001, (SrcWidth + Width + 1) / TexWidth, (SrcHeight + Height) / TexHeight)

            'Correccion del minimap, para que borre el puntito del usuario, se cambio el color del punto ahora es rojo :$
            If AlphaMiniMap > 50 Then
                Call Draw_FillBox(MiniMap.X + UserPos.X, MiniMap.Y + UserPos.Y, 3, 3, MMC_Char)
            End If

            Call MiniMap_ColorSet

        End If

    End With

End Sub