 
			
				22/06/2004, 12:35
			
			
			     |  
        |     Moderador   |    |    Fecha de Ingreso: febrero-2002  Ubicación: México D.F  
						Mensajes: 8.004
					  Antigüedad: 23 años, 8 meses Puntos: 50     |        |  
       Cita:    If Panel1.Visible Then 
                Panel1.Visible = False 
            Else 
                Panel1.Visible = True 
  End If     En tu caso sería:    Cita:  Sub mostrarfecha (Src As Object, Args As EventArgs)   
fecha.Text = DateString 
tiempo.Text = TimeString 
If fechatiempo.Visible 
fechatiempo.Visible = False 
Else 
fechatiempo.Visible = True 
End If   
End Sub     
Salu2                  |