Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Literal1.Text = AtoZ()
End Sub
Function AtoZ() As String
Dim letter As String Dim x As Integer letter = ""
For x = 65 To 90 letter = letter & "<td>" & chr(x) & "</td>" Next x End Function |