SHOUTOUTMND: fuzzhammersignificant + GordonFremen bff
Created on: December 10th, 2008
Sponsorships:
| user | amount | user | amount |
|---|---|---|---|
| No one has sponsored this site ( ._.) | |||
| Sponsor this site! | Total: $0.00 | Active: $0.00 | |
Vote metrics:
| rating | total votes | favorites | comments |
|---|---|---|---|
| (2.89) | 9 | 0 | 15 |
View metrics:
| today | yesterday | this week | this month | all time |
|---|---|---|---|---|
| 0 | 2 | 0 | 0 | 1,411 |
Inbound links:
| views | url |
|---|---|
| 42 | https://www.bing.com |
| 2 | http://ytmnsfw.com/users/fuzzhammersignificant/ |
| 2 | http://216.18.188.175:80 |
| 1 | http://www.google.com |
Public Class Form1
Private Sub btnDetermine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetermine.Click
Dim Word As String, Characters As Integer
HowLong(Word, Characters)
DisplayResult(Word, Characters)
End Sub
Sub HowLong(ByRef Word1 As String, ByRef Letters As Integer)
Word1 = txtWord.Text
Letters = Word1.IndexOf(Word1)
End Sub
Sub DisplayResult(ByVal Word1 As String, ByVal Letters As Integer)
txtLength.Text = Word1 & ": " & Letters & " characters long."
End Sub
End Class
Bold
Italic
Underline
Code
User Link
Site Link