hazır kodlar

Titreyen Form Private Sub Form_Load() Timer1.Interval = 22 End Sub Private Sub Timer1_Timer() Form1.Top = Form1.Top + 50 Form1.Top = Form1.Top - 50 Form1.Left = Form1.Left - 50 Form1.Left = Form1.Top + 50 End Sub Formu Yuvarlatma Private Sub Form_Load() Dim hr&, dl& Dim usew&, useh&...