'Este es el cdigo de Jiuster4. Del formulario, el formulario tienes que verlo mediante WORD

Dim Xadi As Integer
Private Sub Seli()
      If Xadi = 0 Then
        Idax.Picture = Idax1.Picture
        Xadi = 1
    Else
        Idax.Picture = Idax2.Picture
        Xadi = 0
    End If
End Sub
Private Sub IeTimer1_Timer()
Seli
End Sub
Private Sub IeTimer2_Timer()
    IeTimer2.Tag = Mid(IeTimer2.Tag, 2) + Left(IeTimer2.Tag, 1)
            Jiuster4.Caption = IeTimer2.Tag
        BackColor = &HFFFFFF * Rnd
End Sub
Private Sub IeTimer3_Timer()
        IeTimer3.Tag = Mid(IeTimer3.Tag, 2) + Left(IeTimer3.Tag, 1)
            Jiuster3.Caption = IeTimer3.Tag
End Sub
Private Sub Jiuster2_Click()
Unload Me
End Sub
Private Sub Jiuster1_Click()
On Error Resume Next
        Dim retval
            retval = Shell("C:\windows\Sol.EXE", 1)
End Sub
