Türkiye'nin En Mutlu Forumu
Would you like to react to this message? Create an account in a few clicks or log in to continue.

http://yeterince.benimforum.org/
 
AnasayfaAramaKayıt OlGiriş yap

d

Önceki başlık Sonraki başlık Aşağa gitmek
Yazar Mesaj
Vural
™Administrator™
™Administrator™
Vural

Erkek
Yaş : 26 Kayıt tarihi : 03/08/08 Mesaj Sayısı : 1241

Paylaşımlar:
d Img_left1000/1000d Empty_bar_bleue  (1000/1000)
Mutluluk:
d Img_left1000/1000d Empty_bar_bleue  (1000/1000)

d Vide
MesajKonu: d d Icon_minitime21.09.09 18:43

Timer1 İçine

Private Sub Timer1_Timer()
Randomize
a = Int(Rnd(300) * 100)
b = Int(Rnd(300) * 100)
Text1.Left = Text1.Left + a
Text2.Left = Text2.Left + b
If Text1.Left >= 5520 Then
a = MsgBox("A Arabası kazandı")
End
End If
If Text2.Left >= 5520 Then
a = MsgBox("B Arabası Kazandı")
End
End If
End Sub

Command1 Buttonunun içinede

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 25
End Sub
Sayfa başına dön Aşağa gitmek
http://yeterince.benimforum.org

d

Önceki başlık Sonraki başlık Sayfa başına dön
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var: Bu forumdaki mesajlara cevap veremezsiniz
Türkiye'nin En Mutlu Forumu :: TV Dizileri - Sinema - Tiyatro :: Sinema, Tv, Tiyatro -
Powered by phpBB © phpBB Group
Copyright © 2009 By Skip & The Vural