Formatear no es una opción ya que el equipo tendra menos de un mes que le instale el disco de 500 y volver a montar todo el sistema(programas y demas herramientas es muy tedioso) lo que busco es un buen antivirus o todo lo que se le paresca lo que pasa es que probar miles de antivirus por cuenta propia como que no, ademas de la mayoria de donde los bajas te instalan basura ( Softonic y otras) algunas sugerencias de lo que debo de buscar


Gracias
Luis

Bien tengo un P4 8 gigas ram disco 500 gigas y demas patrañas jejej uso wify desde casa a casa de mama con wifisky 2000 y a veces uso una cuenta con la rural del pueblo full señal ( todas las barritas ) uso el antivirus  "  Microsoft Secuirity Essentila " pero mi pc va como un 286 de principio de siglo Lento muyyyyyyy lento que da dolor de Hue... abrir el face jejje pero solo va lento el internet cuando lo uso para programar o abrir cualquier cosa va como un tiro ?????

Alguna idea ?

Luis
 

Lo habia pensado pero tendria que duplicar los texboxes y se haria muy grande el formulario ademas de feo jejejje,

Gracias por tu respuesta

Luis
 

Ni una idea ?????? 

luis

Gracias Elektro

los tengo de las dos formas ico o png y da igual no los reconoce probare con tu codigo

Gracias de nuevo

Luis

Uso el VB 2010 y cuando quiero cambiar el icono en propiedades del proyecto aunque tenga bien ubicados los iconos cuando los busco con el editor no se ven ?? por lo tanto no los puedo cambiar me gustaría cambiar los de los formularios y el del ejecutable.

tengo de 16 y de 32 por si....

luis

Hago unos calculos matematicos donde envio estos resultados a unos texboxes que estan ordenados de forma consecutiva, como podria evitar resultados repetidos cada cuatro teboxes





pense en esta forma pero no encuentro la logica



Luis

Perfecto gracias EleKtro H@cker te debo una revision a tu coche


Luis

No logro hacer nada es en este codigo que quiero hacer las limitaciones de numeros

Public Class Form1
 
    Private TextBoxes As TextBox() = {Nothing}
 
    Private Result1 As Int32(), Result2 As Int32()
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
 
    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
 
    Private Sub Sumar(sender As Object, e As EventArgs) _
    Handles Button_Sum.Click
 
        Dim TextBoxCount As Short = -1
 
        TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}
 
        Result1 = {Num1 + 15, Num1 + 25} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 30, Num2 + 20} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items
 
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result2
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next
 
    End Sub
 
End Class

Ya me pegare un tiro pronto

Public Class Form1
 
    Private Property Result1 As Object
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Result1 = {Num1 + 15, Num1 + 25} _
                          .Distinct().ToArray ' Elimino duplicados
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
    End Sub
    Private Sub Test(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown
 
        Dim TextBoxes() As TextBox = _
            {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5}
 
        Dim TextBoxCount As Integer = 0
 
        Dim maximum As Short = 99
 
        Dim Result1 As Integer = { _
                                    90, _
                                    40, _
                                    50, _
                                    90, _
                                    100, _
                                    125 _
                                  }.Distinct().ToArray
 
        Array.Sort(Result1)
 
        For Each Number As Integer In Result1
 
            TextBoxes(TextBoxCount).Text = _
                If(Not Number > maximum, _
                   CStr(Number), _
                   CStr(maximum))
 
            Threading.Interlocked.Increment(TextBoxCount)
 
        Next Number
 
    End Sub
 
    Private Function TextBoxCount() As Object
        Throw New NotImplementedException
    End Function
 
    Private Function TextBox(ByVal p1 As Object) As Object
        Throw New NotImplementedException
    End Function
 
End Class