iOS Question Vertical button?

Private Sub Application_Start (Nav As NavigationController)
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.RootPanel.LoadLayout("1")
   NavControl.ShowPage(Page1)
   Button1.CustomLabel.Multiline = True
   Button1.Text = AddCrlf("SUBMIT")
End Sub

Sub AddCrlf(s As String) As String
   Dim sb As StringBuilder
   sb.Initialize
   For i = 0 To s.Length - 2
     sb.Append(s.CharAt(i)).Append(CRLF)
   Next
   sb.Append(s.CharAt(i))
   Return sb.ToString
End Sub