Language Of Internet

Option Explicit
Dim h, w, i, r
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check1.Caption = "b"
h = Text2.Text
h = LCase(h)
Text2.Text = h
Else
Check1.Caption = "B"
h = Text2.Text
h = UCase(h)
Text2.Text = h
End If
End Sub

Private Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
r = Mid(Text1, i, 1)
Select Case r
Case " "
Text2.Text = Text2.Text + " "

Case "Ï"
Text2.Text = Text2.Text + "D"
Case "Ì"
Text2.Text = Text2.Text + "j"
Case "Í"
Text2.Text = Text2.Text + "7"
Case "Î"
Text2.Text = Text2.Text + "5"
Case "å"
Text2.Text = Text2.Text + "H"
Case "Ú"
Text2.Text = Text2.Text + "3"
Case "Û"
Text2.Text = Text2.Text + "G"
Case "Ý"
Text2.Text = Text2.Text + "F"
Case "Þ"
Text2.Text = Text2.Text + "G"
Case "Ë"
Text2.Text = Text2.Text + "T"
Case "Õ"
Text2.Text = Text2.Text + "9"
Case "Ö"
Text2.Text = Text2.Text + "D"
Case "Ø"
Text2.Text = Text2.Text + "6"
Case "ß"
Text2.Text = Text2.Text + "K"
Case "ã"
Text2.Text = Text2.Text + "M"
Case "ä"
Text2.Text = Text2.Text + "N"
Case "Ê"
Text2.Text = Text2.Text + "T"
Case "Ç"
Text2.Text = Text2.Text + "A"
Case "Ã"
Text2.Text = Text2.Text + "A"
Case "á"
Text2.Text = Text2.Text + "L"
Case "È"
Text2.Text = Text2.Text + "B"
Case "í"
Text2.Text = Text2.Text + "Y"
Case "Ó"
Text2.Text = Text2.Text + "S"
Case "Ô"
Text2.Text = Text2.Text + "SH"
Case "Ù"
Text2.Text = Text2.Text + "D"
Case "Ò"
Text2.Text = Text2.Text + "Z"

Case "æ"
Text2.Text = Text2.Text + "W"
Case "É"
Text2.Text = Text2.Text + "H"
Case "ì"
Text2.Text = Text2.Text + "Y"
Case "áÇ"
Text2.Text = Text2.Text + "LA"
Case "Ñ"
Text2.Text = Text2.Text + "R"
Case "Ä"
Text2.Text = Text2.Text + "O"
Case "Ï"
Text2.Text = Text2.Text + "5"
Case "Æ"
Text2.Text = Text2.Text + "O"
Case "0"
Text2.Text = Text2.Text + "0"
Case "1"
Text2.Text = Text2.Text + "1"
Case "2"
Text2.Text = Text2.Text + "2"
Case "3"
Text2.Text = Text2.Text + "3"
Case "4"
Text2.Text = Text2.Text + "4"
Case "5"
Text2.Text = Text2.Text + "5"
Case "6"
Text2.Text = Text2.Text + "6"
Case "7"
Text2.Text = Text2.Text + "7"
Case "8"
Text2.Text = Text2.Text + "8"
Case "9"
Text2.Text = Text2.Text + "9"
Case "Á"
Text2.Text = Text2.Text + "2"
End Select
Check1_Click
Next i
End Sub

Private Sub Command10_Click()
'áÕÞ ÇáäÕ
Text2.Text = Clipboard.GetText

End Sub

Private Sub Command12_Click()
MsgBox "Predat0r}_{67.... www.predat0r.net"
End Sub

Private Sub Command13_Click()
End
End Sub

Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Text1.Text = ""
End Sub
Private Sub Command6_Click()
Clipboard.Clear
Clipboard.SetText (Text1.Text)
End Sub
Private Sub Command7_Click()
'áÕÞ ÇáäÕ
Text1.Text = Clipboard.GetText
End Sub
Private Sub Command8_Click()
Text2.Text = ""
End Sub
Private Sub Command9_Click()
Clipboard.Clear
Clipboard.SetText (Text2.Text)
End Sub
Private Sub Form_Load()
Check1.Value = 1
Check1_Click
End Sub
Private Sub Text1_Change()
Command1_Click
Command9_Click
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Label5.Caption = "Work"
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Label5.Caption = ""
End Sub