Sitede bulduğum bir kodu bir türlü çalıştıramadım çalışan halini yani proje halini link olarak atabilecek varsa çok sevinirim acil lazım. Teşekkürler. Kod aşağıda. 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

http://www.wardom.org/visual-basic-6-0-portable-full-t338009.html bu linkteki yazilmla derlerseniz program hata vermez

Neyi çalışmadı bunun muhtemelen timer enable etmemişsin vb6 timer ekleyince disable olarak eklenir. Bu arada farkındamısın bilmiyorum ama bu vb6 kodları visual studio değil