Başlıksız Formu Hareket Ettirme "vb6 " Fazla Bişe Yok sadece bu kodu forma yapıştırın Kod: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub

Formumuza 1 Tane Label , 1 Tane Text Box , 2 Tane Command , 1 Tane Timer ( İnterval özelliği 1000 Olacak ) Ekleyelim. Command 1 Caption Özelliğine Başla Yazalım Command 2 Caption Özelliğine Çıkış Yazalım Vereceğim Kodlarım Tamamını Forma Yapıştıralım Kolay Gelsin. Private Sub Command1_Click() Form1.WindowState = 1 ‘Formu simge durumuna küçült Timer1.Enabled = True ‘Zamanlayıcıyı başlat End Sub Private Sub Command2_Click() Do Until Form1.Top = Screen.Height Form1.Top = Form1.Top + 1 Loop Unload Me End End Sub Private Sub Form_Load() Show Timer1.Interval = 1000 Timer1.Enabled = False End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer() saat...

Tv adreslerini katmadım google amcaya güncel tv adresleri die aratırsanız bulursunuz

Forma bir form daha ekleyin birtane buton birtanede Text nesnesi ekleyin butonun click olayına kodları yapıştırın Static x x = x + 1 If Text1.Text = "cod3r.org" Then Form2.Show Unload Me ElseIf x = 3 Then MsgBox "Üç hakkınızda bitti by!", vbCritical, "Malesef" End Else MsgBox x & " Hakkınız Kaldı", vbInformation, "Yazık" End If

Public Class Form1 Dim sayı, sonuc As Integer Private Sub Button1_Click sayı = TextBox1.Text + 1 sonuc = 1 Timer1.Start() Timer1.Interval = 1 Private Sub Timer1_Tick try sayı = sayı – 1 sonuc = sonuc * sayı If sayı = 1 Then MsgBox(sonuc) Timer1.Stop() End If catch end try Kullanılanlar; 1 textbox ,1 button ,1 timer1