Can someone point out where i went wrong ..

[Dhamone]

Hey there first night with vb6 and allready questions, hehe.

Managed to change screen size fairly easily, but when implementing the [http://www.touchofdeathforums.com/smf/index.php/topic,28926.msg254134.html#msg254134](http://www.touchofdeathforums.com/smf/index.php/topic,28926.msg254134.html#msg254134)

I ran into a snag.

Here is the code as i have it, I am using Stable.

```
If (KeyAscii = vbKeyReturn) Then
        frmStable.txtMyTextBox.Text = vbNullString
        If Player(MyIndex).y - 1 > -1 Then
            If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).Type = TILE_TYPE_SIGN And Player(MyIndex).Dir = DIR_UP Then
                Call AddText("The Sign Reads:", BLACK)
                If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1) <> vbNullString Then
                    Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1), GREY)
                End If
                If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2) <> vbNullString Then
                    Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2), GREY)
                End If
                If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3) <> vbNullString Then
                    Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3), GREY)
                End If
                Exit Sub
            Else
                Call CheckMapGetItem
                If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).Type <> TILE_TYPE_ITEM Then
                If frmStable.txtMyTextBox.Visible = False Then
                    frmStable.txtMyTextBox.Visible = True
                    frmStable.txtMyTextBox.SetFocus
                Else
                    frmStable.picScreen.SetFocus
                    frmStable.txtMyTextBox.Visible = False
                End If
                End If

            End If
        End If
        End If

```
now it compiles ok without error, problem is it types out every letter on its own line of the chat box…any help will be greatly appreciated.