[font='Titillium Web', sans-serif]Private Declare Function ShowCursor& Lib "user32" (ByVal bshow As Long)[/FONT]
[font='Titillium Web', sans-serif]Private Sub Button1_Click()[/FONT]
[font='Titillium Web', sans-serif]ShowCursor (False)[/FONT]
[font='Titillium Web', sans-serif]End Sub[/FONT]
[font='Titillium Web', sans-serif]Private Sub Button2_Click()[/FONT]
[font='Titillium Web', sans-serif]ShowCursor (True)[/FONT]
[font='Titillium Web', sans-serif]End Sub[/FONT]
[font='Titillium Web', sans-serif]Private Sub Form_Load()[/FONT]
[font='Titillium Web', sans-serif]MsgBox "SADECE FORM ÜZERİNDE ÇALIŞIR", vbCritical + vbOKOnly, "DİKKAT"[/FONT]
[font='Titillium Web', sans-serif]End Sub [/FONT]
'herkese iyi çalışmalar
