Ensayos

Private Sub CMDres_Click()
If Text1.Text = "V" Then
RESPP1 = 2
End If
If Text2.Text = "F" Then
RESPP2 = 2
End If
If Text3.Text = "V" Then
RESPP3 = 2
End If
If Text4.Text = "F" Then
RESPP4= 2
End If
If Text5.Text = "V" Then
RESPP5 = 2
End If
If res1 = True Then
resp1 = 5
End If
If res4 = True Then
resp4 = 5
End If
If res5 = True Then
resp5 = 5
End IfIf res8 = True Then
resp8 = 5
End If
resp = (RESPP1 + RESPP2 + RESPP3 + RESPP4 + RESPP5 + resp1 + resp4 + resp5 + resp8)
If resp = 20 Then
MsgBox "FELICIDADES"
End If
If resp < 20Then
MsgBox "Estudia un poco mas"
End If
End Sub

Private Sub Frame5_DragDrop(Source As Control, X As Single, Y As Single)
lstIzquierda.AddItem "Metodo Cientifico"
lstIzquierda.AddItem "Metodode la Ciencia"
lstIzquierda.AddItem "Metodo del Conocimiento"

End Sub

Private Sub ImageWeb1_Click()

End Sub
Dim X As Integer

Private Sub Form_Load()
picAnima.Picture = pic1.Picture
X= 1
End Sub

Private Sub ress1_Click()
If ress1 = True Then
MsgBox "BIENVENIDO"
End If
End Sub

Private Sub ress2_Click()
If ress2 = True Then
MsgBox "EL ESTUDIO, NOS CAMBIA LAVIDA"
End
End If
End Sub

Private Sub Timer1_Timer()

X = X + 1
If X > 4 Then
X = 1
End If
Select Case X
Case 1:
picAnima.Picture = pic1.Picture
picAnima.Left =picAnima.Left + 150
If picAnima.Left > 500 Then
picAnima.Left = 100
End If
Case 2:
picAnima.Picture = pic2.Picture
picAnima.Left = picAnima.Left + 150
If picAnima.Left > 300 ThenpicAnima.Left = 100

End If
End Select
End Sub

Private Sub Timer2_Timer()
X = X + 1
If X > 2 Then
X = 1
End If
Select Case X
Case 1:
picAnima.Picture = pic3.Picture
picAnima.Left =picAnima.Left + 150
If picAnima.Left > 300 Then
picAnima.Left = 100
End If
Case 2:
picAnima.Picture = pic4.Picture
picAnima.Left = picAnima.Left + 150
If picAnima.Left > 300 Then...