Şuan pc'de vb yüklü değil ama internette araştırdım bir kod buldum. İnceledim büyük ihtimal senin aradığın şey. İşine yarar mı bilemem 'Klavye tuşları ile nesne yönlendirme '1 adet shape nesnesi ekleyerek ismini nesne olarak değiştirin. Kod: Dim yon As String Dim surat As Integer Private Sub Form_KeyDown If KeyCode = vbKeyDown Then yon = "asagi" If KeyCode = vbKeyUp Then yon = "yukari" If KeyCode = vbKeyLeft Then yon = "sol" If KeyCode = vbKeyRight Then yon = "sag" End Sub Private Sub Form_Load surat = 200 End Sub Private Sub Timer1_Timer Select Case yon Case "sol": If nesne. Left <= Then nesne. Left = Form1. ScaleWidth Else nesne. Left = nesne. Left - surat End If Case "sag": If nesne. Left >= Form1. ScaleWidth Then nesne. Left = Else nesne. Left = nesne. Left + surat End If Case "yukari": If nesne. top <= Then nesne. top = Form1. ScaleHeight Else nesne. top = nesne. top - surat End If Case "asagi": If nesne. top >= Form1. ScaleHeight Then nesne. top = Else nesne. top = nesne. top + surat End If End Select End Sub -

Teşekkürler

picturebox için; Kod: Dim cizgii As Line Private Sub Picture1_MouseDown If Button = 1 Then Set cizgii = Controls. Add With cizgii. X1 = Picture1. Left. Y1 = Picture1. Top End With End If End Sub Private Sub Picture1_MouseMove If Button = 1 Then With cizgii. X2 = X + Picture1. Left. Y2 = Y + Picture1. Top Picture1. Left = . X2 Picture1. Top = . Y2 End With End If End Sub Private Sub Picture1_MouseUp Controls. Remove cizgii End Sub

Teşekkürler mbk_kbm

yok estağfurullah küsme değil de biraz yardımcı olunsa iyi olur sonuçta ben kendi bildiklerim le bişeyler yapmaya çalışıyorum fakat bilmediklerimi veya mantıken yapamadıklarımı sormak zorundayım anlatabildimse

command butonu veya herhngi bir nesneyi klavyeden veya fare ile tutup proje çalışır halde iken hareket ettirmem lazım yardımcı olurmusunuz

evet istediğim bunun gibi bişey ama bu sürekli haareket te ben klavye ye dokunduğum an hareket etsin dokunmuyorsam hareket etmesin diyordum.

biraz da kafani calistir birader yazılımla ugrasmak ıstıosunuz ama herseyı hazır beklıyosunuz moralını bozmak gıbı olmasın ama bosa ugrasma dıyım ben sana kodu dırek yapıstırıp f5 dıyıp aa bu sureklı yapıyo deme bı kodu ıncele bak orda tımer falan aa demekkı buyuzden sureklı yapıo de sonra dekı ben bunu ne zaman olsun ıstıyorum de klavyeye basıtıgında de sonra tımer da yaptıgı seyı klavyenın olaylarına koy hee bu tarz bılgı seylerını bılemeyebılırsın bu normal bunu solıyım formun keyprewıev ını true yap sonra formun keydownuna gırıp hangı tusda ne yapsın hangısınde ne yapsın ayarla

kusura bakma kafamız fazla çalışmıyo sizin gibi değiliz görememiş olabilir bilsem zaten istemem bu forum da da yardım isteyemecekesem internetten bulayım da öle yapayım teşekkürler