Private Sub mnuOper_Click(Index As Integer)
'Select Case ?
Case 1
Form2.Show
Form1.Hide
Case 2
' Timer1.Enabled =?
Case 3
End
End Select
End Sub
Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 100
'If Picture1.Left + Picture1.Width >= ? Then
'Picture1.Left = ?
End If
End Sub
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
发布于 2022-05-11 10:14:16
登录后免费查看答案
关注者
0
被浏览
22