1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Kayan Saniye


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    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