Как можно реализовать поверхность,с отдельными квадратиками и разными текстурами см. картинку ?
Private Sub Command1_Click()
Dim hp As Integer
Do While hp = 100
Image1.Left = hp
Loop
End Sub
Do
Image1.Left = Image1.Left - TwipsPerTime 'PixelsPerTime 'скорость сдвига
DoEvents
Loop While Image1.Left > 100
Сейчас этот форум просматривают: AhrefsBot и гости: 103