Ekran Koruyucu
Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.Formunuza güzel bir ekran koruyucu koyabilirsiniz.
| Public Sub drawcircle(] Dim red As Integer 'declare all varibles Dim blue As Integer Dim green As Integer Dim xPos As Integer Dim yPos As Integer red = 255 * Rnd 'randomize red color blue = 255 * Rnd 'randomize blue color green = 255 * Rnd 'randomize green color xPos = ScaleWidth / 2 yPos = ScaleHeight / 2 radius = ((yPos * 0.99] + 1] * Rnd Circle (xPos, yPos], radius, RGB(red, blue, green] End Sub Private Sub Timer1_Timer(] Call drawcircle End Sub |
Kolay Gelsin.
