你好，可以在窗体内添加timer控件实现此功能
Private Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    If Me.Left < 60 Or (Me.Top < 800 And Me.Top > 60) Then
    Me.Top = 0
    Me.Left = 0
    End If
End Sub