una cosa es rootear, eso lo podes hacer facil, con el programa superoneclick, podes rootear casi cualquir telefonocon android. pero el otro tema de flashear e instalarle ROMs de terceros, eso la verdad lo detesto, no se porque la gnete hace eso, si no hay nada mejor que una ROM oficial, aparte esas ROMs estan llenas de bugs y anda a saber que tienen, hay gente que vive haciendo eso, siempre lo comparo con los famosos windows UE o los windows modificados, son horribles le sacan todo y no te anda nada despues, esa es mi opinion. si tenes la 2.3.3 yo no lo cambiaria, yo tengo el samsung galaxy S2 con la version 2.3.4 y podria flashearlo e instalarle un monton de ROMS, pero no lo hago porque ya estan por liberar para mi pais la version 4.0.3 ICS.

podes hacerlo con saltos de lineas entre cada letra, pero queda horrible el codigo, es mejor crearte un control que maneje por si solo el texto, aca tenes una clase sacada de internet, la cual dibuja el texto:

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.Drawing
 
Public Class VerticalLabel
    Inherits Label
 
    Public Sub New()
        SetStyle(ControlStyles.UserPaint, True)
        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        SetStyle(ControlStyles.DoubleBuffer, True)
 
        Me.AutoSize = False
    End Sub
 
    Private Sub CalculateSize(ByVal value As String)
        Me.AutoSize = False
 
        Dim height As Integer = 0
        Dim width As Integer = 0
        Dim sizeTemp As New Size()
 
        For Each c As Char In value
            sizeTemp = TextRenderer.MeasureText(c.ToString(), Me.Font)
            height += sizeTemp.Height
 
            If sizeTemp.Width > width Then
                width = sizeTemp.Width
            End If
        Next
 
        Me.Height = height
        Me.Width = width
    End Sub
 
    Public Overrides Property Text() As String
        Get
            Return MyBase.Text
        End Get
        Set(ByVal value As String)
            MyBase.Text = value
            CalculateSize(value)
        End Set
    End Property
 
    Public Overrides Property Font() As Font
        Get
            Return MyBase.Font
        End Get
        Set(ByVal value As Font)
            MyBase.Font = value
            CalculateSize(MyBase.Text)
        End Set
    End Property
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim br As New SolidBrush(Me.ForeColor)
        Dim smt As New StringFormat()
 
        smt.Alignment = StringAlignment.Center
 
        Dim sizeTemp As New Size()
        Dim i As Integer = 0
        For Each c As Char In Text
            sizeTemp = TextRenderer.MeasureText(c.ToString(), Me.Font)
            Dim rc As New Rectangle(0, sizeTemp.Height * i, sizeTemp.Width, sizeTemp.Height)
            e.Graphics.DrawString(c.ToString(), Font, br, rc, smt)
            i += 1
        Next
 
        br.Dispose()
    End Sub
End Class
 

eso lo pones en una clase y despues te va a aparecer el control en la barra de herramientas como si fuera un control, lo unico que tenes que hacer es arrastrarlo al formulario, y cambiarle el texto que quieras y se va a mostrar vertical.

saludos.

es mas viejo esto...mira si un aguja te va a decir eso, esta bien en creer en fenomenos sin explicacion y todo lo que quieras, pero creer en esto ya es de tonto 

para hacer todas estas cosas con el textbox, por ejemplo saber la cantidad de lineas, contar palabras, etc..podes usar la api SendMessage, que te ofrece un monton de funciones para poder trabajar con los textbox y manipularlos a tu antojo.

aca hay una implementacion de lo que seria borrar la linea que vos quieras con esta api.

aparte con apis es muhco mas rapido si tenes miles de lineas.

Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
 
Private Const EM_SETSEL = &HB1
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEINDEX = &HBB
 
Private Sub BorrarLinea(ByVal pNumeroLinea As Long)
    Dim vComienzo As Long, vFin As Long, vCantLineas As Long
 
    With Text1
        vCantLineas = SendMessage(.hwnd, EM_GETLINECOUNT, 0, ByVal 0&)
 
        Select Case True
            Case pNumeroLinea > vCantLineas - 1
            Exit Sub
        Case pNumeroLinea = 0 And vCantLineas = 1
            vComienzo = 0
            vFin = Len(.Text)
        Case pNumeroLinea = vCantLineas - 1
            vComienzo = SendMessage(.hwnd, EM_LINEINDEX, pNumeroLinea, ByVal 0&) - 1
            vFin = Len(.Text) - vComienzo + 1
        Case Else
            vComienzo = SendMessage(.hwnd, EM_LINEINDEX, pNumeroLinea, ByVal 0&)
            vFin = SendMessage(.hwnd, EM_LINEINDEX, pNumeroLinea + 1, ByVal 0&) - vComienzo
        End Select
 
        .SetFocus
        Call SendMessage(.hwnd, EM_SETSEL, vComienzo, ByVal vFin)
 
        LockWindowUpdate .hwnd
        .SelStart = vComienzo
        .SelLength = vFin
        .SelText = vbNullString
        LockWindowUpdate False
    End With
End Sub
 
Private Sub Command1_Click()
    Call BorrarLinea(2) ' Borra la tercera linea del textbox
End Sub

saludos.

yo no fumaria, por mas que no haga nada, prefiero comerme un helado.

claro, me parecia que no se podia, si deberia ser con una tarjeta externa, listo, cerrado el tema, gracias.

saludos.

12GB de RAM DDR3 Problem ? 

Hola, tengo un monitor samsung que es TV tambien, que tiene entradas HDMI para conectar playstation 3 o direc tv HD...etc, me pregunto si se puede grabar lo que hay en la pantalla cuando cambio al modo HDMI, es posible ? algun programa ?

saludos.

hace poco respondi como se hace, si buscas mis post en esta categoria lo encontras.