Ашылған пішіндер терезесінде Image көмегімен 2 түрлі суреттің орнын әзірлейміз
[pic]
Paint –та сурет салып көшірмесін Image .
[pic]
[pic]
Екі суретті бір-біріне беттестіру керек
[pic]
Private Sub Timer1_Timer()
Image1.Visible = False
Image2.Visible = True
Timer1.Interval = 0
Timer2.Interval = 800
End Sub
Private Sub Timer2_Timer()
Image2.Visible = False
Image1.Visible = True
Timer2.Interval = 0
Timer1.Interval = 800
End Sub
