Kayan Form BaşlığıDim Cl As IntegerDim at As IntegerPublic Function AniText As StringDim lopCl = Len + 1at = at + 1If at >= Cl Thenat = 1End IfSelect Case effCase 0AniText = Mid + Left Case 1AniText = Mid(str, + Left(str, Case 2AniText = Mid(str, + Left(str, + Mid + Left Case 3AniText = Mid + Left + Mid(str, + Left(str, End SelectEnd FunctionPrivate Sub Timer1_Timer Form1. Caption = AniText("mail adresiniz ", 1)End Sub Titreyen Form'Program çalışırken formu sürükleyebilirsiniz. Dim MeLeft As Long, MeTop As LongConst MaxT = 150Function Salla Salla = Int(EnBuyuk / 2) Rnd ((Second + 50) (Minute + 50)) Mod EnBuyuk + 1End FunctionPrivate Sub Form_Load MeLeft = Me. LeftMeTop = Me. TopEnd SubPrivate Sub Timer1_Timer Dim X As Long, Y As LongX = MeLeft - Salla Y = MeTop - Salla Me. Left = XMe. Top = YEnd SubPrivate Sub Timer2_Timer If Abs > MaxT + 50 Then MeLeft = Me. LeftIf Abs > MaxT + 50 Then MeTop = Me. TopEnd Sub

Küçük kodları bu başlıkta toplayalım.3 tanede benden. alinti degildir. 1-)Checkbox tipi liste kutularini kullanma 'Diyelim 100 tane seçenek var... Bunların evet yada hayır olmasının belirlenmesi için checkbox koymak istiyorsunuz..100 checkbox mu eklemek zorundaısınz yada index mi koymak zorundasınız?Hayır.. Formunuza bir listbox ekleyerek style zelliğini checkbox yaparsanız, listeye eklediğiniz kadar checkbox olur.. KullanırkendePrivate Sub Command1_Click if list1. list(0)=true thenmsgbox "ayarlar değiştirildi!"End Sub'işinize yararsa ne mutlu! 2-)Random String Uretimi'Formun General Declerations blümüne:Private Function randomstr As StringDim x As IntegerDim i As Integerrandomstr = ""For i = 1 To uzunlukRandomizex = Int(Rnd 26) + 97randomstr = randomstr & Chr NextEnd Function'Kullanımı:dim x as string x=randomstr(3) 'x 3 karakterlik karisik bir string olacaktir.3-)Asal sayilari listeleme Private olan As Integer 'sınırsız boyutlu tamsayı arrayı tanımlaPrivate Sub Command1_Click If Not IsNumeric(Text1. Text) = True Then 'sayı deilse hata verMsgBox "Adam gibi sayı gir len", vbCriticalElseReDim olan(CInt(Text1. Text)) As Integer 'tamsayı arrayını yeniden boyutlandırDim i As IntegerDim x As IntegerList1. ClearFor i = 2 To CInt(Text1. Text) 'asıl sayılarFor x = 2 To CInt(Text1. Text) 'blünecek sayılarIf i <> x And i Mod x = 0 Then 'modüler aritmetik kalan bulma islemiolan = 2 'yanlissa 2 degeri veriozEnd IfNextNextDim h As IntegerFor h = 2 To CInt(Text1. Text) 'islemler bitti simdi degerleri tekrar kontrol edelimIf olan <> 2 ThenList1. AddItem h 'eger asalsa listeye ekleEnd IfNextEnd IfEnd Sub'bu kodla 2 den yazdiniz sayiya kadar olan asal sayilari listeleyebilirsiniz. integer kullanildigi icin 32k kusur max deger oluyor :). Zaten sayi buyudukce bilgisayarda zorlanmaya baslayacaktir. The king is bleeding.