Private Sub casovac_kulicka_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles casovac_kulicka.Tick If jdidoprava = True Then kulicka.Left += 1 Else kulicka.Left -= 1 End If If jdinahoru = True Then kulicka.Top -= 1 Else kulicka.Top += 1 End If If kulicka.Left <= plocha.Left Then jdidoprava = True End If If kulicka.Left + kulicka.Width >= plocha.Right Then jdidoprava = False End If If kulicka.Top <= plocha.Top Then jdinahoru = False End If If kulicka.Top + kulicka.Height >= plocha.Bottom Then jdinahoru = True End If If kulicka.Bottom = jezdec.Top Then jdinahoru = True End If If kulicka.Top = cihla1.Left Then cihla1.Visible = False End If
|