Private Sub Text1_Change(Index As Integer)
     Dim Identificador As Integer
     Dim Data As String
     Identificador = InStrRev(Text1(1), "#casual :")
     Data = Identificador + 9
     Data = Mid(Text1(1), Data)
     Text8 = Data
End Sub

'declaras Api
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400

Private Sub Form_Load()
RemoveMenu GetSystemMenu(Me.hWnd, 0), 6, MF_BYPOSITION 'desabilita(Cerrar)
End Sub

Option Explicit
'declaras 2 variables una para cada movimiento
Dim Horizontal As Integer
Dim Vertical As Integer

Private Sub Form_Load()
Timer1.Enabled = True 'inicia el Timer
Timer1.Interval = 100 'le pone intevalo
Vertical = -100 'asignas valor a las variables
Horizontal = -50 'idem
End Sub

Private Sub Timer1_Timer()

Label1.Top = Label1.Top + Vertical
'le dice que cada golpe de Timer le
'agregue -100 SUBE EL LABEL
Label1.Left = Label1.Left + Horizontal
'le dice que cada golpe de Timer le
'agregue -50 VA PA LA IZQUIERDA EL LABEL

'limite superior
If Label1.Top <= ScaleTop Then
'si llega al limite superior del form
Vertical = 100
'cambia el movimiento que era (-100)
Label1.Top = Label1.Top + Vertical
'lo hace ir para abajo
End If

'limite inferior
If Label1.Top >= ScaleHeight Then
Vertical = -100
Label1.Top = Label1.Top + Vertical
End If

'limite izquierdo
If Label1.Left <= ScaleLeft Then
Horizontal = 100
Label1.Left = Label1.Left + Horizontal
End If

'limite derecho
If Label1.Left >= ScaleWidth Then
Horizontal = -100
Label1.Left = Label1.Left + Horizontal
End If
End Sub

Private Sub Text1_Change()
Dim VAriable As Integer
If InStrRev(Text1, "#causal :") <> 0 Then
VAriable = InStrRev(Text1, "#causal :") + 9
Text8 = Text8 & Mid(Text1, VAriable)
End If
End Sub