【转】VB代码VB小程序：宇宙大爆炸演示

本程序演示宇宙收缩和爆炸过程。程序运行后，一个红球不断收缩，当收缩到一定程度时，产生爆炸，爆炸物不断从中心向外喷发而出。

'需在窗体放置以下 4 个控件，所有控件不用设置任何属性，均采用默认设置：
' Picture1，Command1，Check1，Timer1

代码如下：

'需在窗体放置以下 4 个控件，所有控件不用设置任何属性，均采用默认设置：
'    Picture1，Command1，Check1，Timer1
'以下是窗体代码，在 VB6.0 调试通过：
Dim ctD() As tyD, ctDs As Long, ctR As Single
Private Type tyD
    x As Single
    y As Single
    toX As Single
    toY As Single
    Se As Long
    Ci As Long
End Type