Ever arkadaşlar, bu dersimizde mosemove'yi kullanarak forma şekiller çizdireceğiz.

Çok kolay ve eğlenceli bir ders.

Formun mousemove özelliğini bir çoğunuz bilmiyorsunuz...

Kodumuz şu şekilde olacak:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Buraya aşağıda uygun bulduğumuz kodlarımızı yazacaz...
End sub

Evet şimdi kodlarımıza gelelim örneğin farenin sol tuşuna basıldığında çizime başlasın.kodumuz şu şekilde:

If Button And vbLeftButton Then
PSet (X, Y), RGB(Rnd * 500, Rnd * 255, Rnd * 600)
End If

Formda fazla kirlilik olmasın diye farenin sağ tuşu ilede yaptığımız çizimleri silelim bunu için

If Button And vbRightButton Then
Form1.Cls
End If

Evet kodlar çok açıklayıcı sanırım

Kolay gelsin...