Control TextBox con "autoexplicacion"

Imports Microsoft.Xna.Framework
Imports Microsoft.Xna.Framework.Content
Imports Microsoft.Xna.Framework.Graphics

Public Class misSprites
    Private Posicion As Vector2 = New Vector2(0, 0)

    Private mSpriteTexture As Texture2D

    Private iReboteX As Integer = 3
    Private iReboteY As Integer = 3

    Private mAnchoScreen As Integer
    Private mAltoScreen As Integer

    Public Sub New(ByVal theContentManager As ContentManager, ByVal AchoScreen As Integer, ByVal AltoScreen As Integer)
        mAnchoScreen = AchoScreen
        mAltoScreen = AltoScreen
        InicializarSprite(theContentManager)
    End Sub

    Public Sub New(ByVal theContentManager As ContentManager, ByVal AchoScreen As Integer, ByVal AltoScreen As Integer, ByVal xInicial As Integer, ByVal yInicial As Integer, ByVal SpriteNumero As Integer, ByVal xRebote As Integer, ByVal yRebote As Integer)
        mAnchoScreen = AchoScreen
        mAltoScreen = AltoScreen
        InicializarSprite(theContentManager, xInicial, yInicial, SpriteNumero, xRebote, yRebote)
    End Sub

    Public Sub Update()
        MoverSprite()
    End Sub

    Public Sub Draw(ByVal theSpriteBatch As SpriteBatch)
        theSpriteBatch.Draw(mSpriteTexture, Posicion, Color.White)
    End Sub

    Private Sub InicializarSprite(ByVal theContentManager As ContentManager, Optional ByVal xInicial As Integer = 0, Optional ByVal yInicial As Integer = 0, Optional ByVal SpriteNumero As Integer = 0, Optional ByVal xRebote As Integer = 0, Optional ByVal yRebote As Integer = 0)
        Dim rnd1 As New Random()
        Dim i As Integer = rnd1.Next(1, 7) 'Número aleatorio entre 1 y 6
        If SpriteNumero <> 0 Then i = SpriteNumero

        Select Case i
            Case 1
                LoadContent(theContentManager, "spriteWhite")
            Case 2
                LoadContent(theContentManager, "spriteRed")
            Case 3
                LoadContent(theContentManager, "spriteGreen")
            Case 4
                LoadContent(theContentManager, "spriteBlue")
            Case 5
                LoadContent(theContentManager, "spriteYellow")
            Case 6
                LoadContent(theContentManager, "spriteMulti")
        End Select

        Posicion.X = xInicial
        Posicion.Y = yInicial

        If xRebote <> 0 Then iReboteX = xRebote
        If yRebote <> 0 Then iReboteY = yRebote
    End Sub

    Private Sub LoadContent(ByVal theContentManager As ContentManager, ByVal theAssetName As String)
        mSpriteTexture = theContentManager.Load(Of Texture2D)(theAssetName)
    End Sub

    Private Sub MoverSprite()
        Posicion.X -= iReboteX
        If Posicion.X < 0 Then
            iReboteX = -iReboteX
        End If
        If Posicion.X > mAnchoScreen - mSpriteTexture.Width Then
            iReboteX = -iReboteX
        End If

        Posicion.Y -= iReboteY
        If Posicion.Y < 0 Then
            iReboteY = -iReboteY
        End If
        If Posicion.Y > mAltoScreen - mSpriteTexture.Height Then
            iReboteY = -iReboteY
        End If
    End Sub
End Class