1. Reklam


    1. joysro
      asur
      serenity
      redsea
      blacksro
      plag
      alaaddin
      erix

Kayan Saniye


  1. Black Rain

    Black Rain rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.380
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Saniye ilerledikçe saniyeyi gösteren Label nesnesi kayıyor..
    Eklenecek Nesneler; Label1, Timer1
    (Timer1'in Interval özelliğini 1000 yapıyoruz)
    Kod:
    Private Sub Form_Load()
         Form1.Caption = Time
         Label1.Caption = Second(Time)
    End Sub
    
    Private Sub Timer1_Timer()
         Form1.Caption = Time
         Label1.Caption = Second(Time)
    show:
         Label1.Top = Label1.Top + 50
         Label1.Left = Label1.Left + 50
         Cls
    End Sub