Const 수직 As Integer = 1
Const 수평 As Integer = 2
Dim 진행방향 As Integer

Private Sub 시작_버튼_Click()
Call Slider1_Click
Timer1.Enabled = True
원.Top = 0
원.Left = 0
진행방향 = 수직

End Sub

Private Sub 종료_버튼_Click()
End

End Sub

Private Sub Form_Load()
Left = (Screen.Width - Form1.Width) / 2
Top = (Screen.Height - Form1.Height) / 2

End Sub

Private Sub Slider1_Click()
Timer1.Interval = (11 - Slider1.Value) * 10

End Sub

Private Sub Timer1_Timer()
If (진행방향 = 수직) Then
원.Top = 원.Top + 10
If 원.Top + 원.Height > Form1.Height Then
Form1.Caption = "수직완료"
진행방향 = 수평
End If
Else
원.Left = 원.Left + 10
If 원.Left + 원.Width > Form1.Width Then
Timer1.Enabled = False
Form1.Caption = "완료"
End If
End If

End Sub

이렇게 해서..

form1에서 원 모양의 공이 왼쪽 상단에서 왼쪽 하단으로 그다음 왼쪽하단에서 오른쪽 하단까지 보냈는데(여기까진 수업내용이였고.)

아래는 그냥 제가 궁금해서 시도해본건데요..

그다음에 오른쪽하단에서 오른쪽 상단으로 , 오른쪽 상단에서 왼쪽 상단으로 이동을 시키려면

어떻게 추가해야 될까요?,,

이렇게 저렇게 해봐도 원이 대각으로 내려가면서 사라지거나 멈추거나 해서 . 답답하네요..

부탁드립니다 ^^;