Mesaj Sayısı : 550 Kayıt tarihi : 15/08/10 Yaş : 33 Nerden : Denizli Cinsiyet :
Konu: RENGARENK C.tesi Ağus. 21, 2010 8:11 pm
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And vbLeftButton Then PSet (X, Y), RGB(Rnd * 255, Rnd * 255, Rnd * 255) End If If Button And vbRightButton Then Form1.Cls End If End Sub