Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
s = MsgBox("Please Enter first and last numbers", 16, "hey")
Else
f = FreeFile
Open "c:wordlist.txt " For Append As #f
For i = Text1.Text To Text2.Text
Write #f, i
Next
Close
x = MsgBox(" Operating is complete,saved in drive (C:\wordlist.txt)", vbOKOnly + 48, "Done")
End If
End Sub
------------------------------------------------------
Private Sub Command2_Click()
z = MsgBox("Designed by
buzzersoft@nimbuzz.com,Web site:
www.wapfa.org join us", 16, "about")
End Sub
------------------------------------------------------
Private Sub Command3_Click()
x = MsgBox("Exit? so join us
WwW.wapfa.orG", 4 + 48, "hi join us
")
Select Case x
Case vbYes
End
End Select
End Sub
-------------------------------------------------------
tozihatesham badan mizaram
Topic: Source WordList maker ver 1.0 (Read 435 times)