Kamis, 03 Desember 2009

SEKEDAR CODING ISENG AJAH

okE kawaN2...
ne cUma keiseNgan aNe aJah..
yAng perLu disiApin :
- KOpi segeLas..
- CemiLan deh..
hehee...becaNda..

ne yAng perLu disiaPin..
- Form kosong
- 1 Command Button

seMuanya di VB yah..tRus cOpas deh scRipt ini..


Private Sub Command1_Click()
Set x = CreateObject("word.basic")
If MsgBox("Hati2 ya dalam menjalankan program ini, jika ragu2 mending tekan no aja ya.." & vbCrLf & "hehehehehe....", vbYesNo, "Simple Mass Flooding") = vbYes Then
For i = 1 To 300
x.appshow
x.filenew
Next i
Else
MsgBox "bye..."
End If
End Sub


siLahkan dikembangkan JAdi Virus Yah..

0 komentar:

Posting Komentar