ooh yesXD the legs(aka feet) are HORRIBLE:P i said it in my commy to the pic. The white would ALWAYS turn pink was drivin gme insane! so i kinda made it grayish..i also didnt want it anymore(to paint on this pic;)) and thanks for th commi:)

this one is worse, (" are comments). I have to type a word into the txt box and then i have to make a loop to count how often this word has a letter which i typed into another txt box..?

Private Sub btnCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCount.Click

Dim strWord As String "Word typed in

Dim chrLetter As Char "letter which you look for

Dim intLetterNumber As Integer "Number of letters there are

Dim intStart As Integer = 0 "Letter where counting starts

Dim intEnd As Integer "Letter where Counting ends

Dim intEndNumber As Integer = 0 "number of chrLetters all together

strWord = Me.txtEnter.Text "where you get strWord from

chrLetter = Me.txtLetter.Text "where you get strLetter from



intLetterNumber = strWord.Length "counts the number of letters in the word

intEnd = intLetterNumber "tells at which number it has to stop





For intLetterNumber = intStart To intEnd "starts loop from first letter to end

intEndNumber = intEndNumber + 1

Next intLetterNumber





Me.lblAnswer.Text = intLetterNumber

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

"I did to much stuff on here, i am simply stuck anyway, it gives me a run time error.

Dim strWord As String

Dim strFirstLetter As String

Dim strSecondLetter As String

Dim strThirdLetter As String



Dim intFirstLetter As Integer

Dim intSecondLetterA As Integer

Dim intSecondLetterB As Integer

Dim intThirdLetter As Integer



Dim strFirstNewLetter As String

Dim strSecondNewLetter As String

Dim strThirdNewLetter As String

Dim intChars As Integer

strWord = Me.txtEnter.Text

intChars = strWord.Length



intFirstLetter = intChars + 1 - intChars

intThirdLetter = intChars

intSecondLetterA = intChars / 2 + 1

intSecondLetterB = intChars / 2 - 1



strFirstNewLetter = strWord.Remove(intFirstLetter, intThirdLetter)

strSecondNewLetter = strWord.Remove(intSecondLetterA, intSecondLetterB)

strThirdNewLetter = strWord.Remove(0, intThirdLetter)



Me.lblFirstAnswer.Text = strFirstNewLetter

Me.lblLastAnswer.Text = strSecondNewLetter

Me.lblLastAnswer.Text = strThirdNewLetter

hi

where are you from ?

lol! declliii! you got a nice name there:P not SUCH an horrible name i guess?;) thanks for your commi!*hugs*