membuat alay generator dengan vb6

waaaah judul nya berbau alay neh :p hahahahhaa sesuai saja bro nama nya juga alay generator :v
jadi buat kalian yang mau jadi alay alay bisa mencoba nya
oke let's go bro :D
alat yang di butuh kan

•  visual basic 6 ( saya saran kan pake yang full )
• rokok dan kopi ( biar enak bikin program nya )
• 1 buah form 
• 1 buah module
• 2 text box
• 1 comand button

sekarang 1 form sudah di buat atur posisi komponen lain nya sesuai selera anda :p
sekarang 1 module di isi source code berikut ini
 

' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran
Public Function Alay(ByVal Str As String) As String
Dim s As String, h As String, i As Integer
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = "4@"
Case "b": s = "8"
Case "c": s = "Ç"
Case "d": s = "Ð"
Case "e": s = "3"
Case "g": s = "9"
Case "i": s = "1"
Case "n": s = "Ñ"
Case "o": s = "0"
Case "p": s = "Þ"
Case "s": s = "$§5"
Case "t": s = "7"
Case "u": s = "ù"
Case "x": s = "×"
Case "y": s = "¥"
Case Else: s = IIf(CInt(Rnd * 1) = 0, UCase(s), s)
End Select
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Randomize
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function 

nah kalau sudah pada comand button di klik 2 x ya
isi kan source code berikut ini :

Text2.Text = Alay(Text1.Text) 

oke sekarang coba di tekan f5 buat run program
monggo di kembangkan source code nya ^_^ happy coding keep share bro :D