Dizayn kısmında bir nesneniz ve dört adet butonunuz olmalı

Dim yon As String
Dim surat As Integer
Private Sub btn_asagi_Click()
    yon = "asagi"
End Sub

Private Sub btn_sag_Click()
    yon = "sag"
End Sub

Private Sub btn_sol_Click()
    yon = "sol"
End Sub

Private Sub btn_yukari_Click()
    yon = "yukari"
End Sub

Private Sub Form_Load()
    yon = "sag"
    surat = 70
End Sub

Private Sub Timer1_Timer()
    Select Case yon
        Case "sol":
            If yilan.Left <= (-yilan.Width) Then
                yilan.Left = Form1.ScaleWidth
            Else
                yilan.Left = yilan.Left - surat
            End If
        Case "sag":
            If yilan.Left >= Form1.ScaleWidth Then
                yilan.Left = (-yilan.Width)
            Else
                yilan.Left = yilan.Left + surat
            End If
        Case "yukari":
            If yilan.Top <= (-yilan.Width) Then
                yilan.Top = Form1.ScaleHeight
            Else
                yilan.Top = yilan.Top - surat
            End If
        Case "asagi":
            If yilan.Top >= Form1.ScaleHeight Then
                yilan.Top = (-yilan.Width)
            Else
                yilan.Top = yilan.Top + surat
            End If
    End Select
End Sub