10.1向祖国母亲致敬[转]

蓝屏死机

前些时候发现的代码，10.1到了，发出来大家共同欣赏，以表达对祖国母亲的敬意
Private Sub Form_Load()
Dim i As Integer
With Me
.Move Screen.Width * 0.1, Screen.Height * 0.1, Screen.Width * 0.8, Screen.Height * 0.8
.AutoRedraw = True
.BackColor = vbRed
.ForeColor = vbYellow
.Caption = "五星红旗"
.Icon = LoadPicture("")
For i = 0 To 4
.CurrentX = Array(0.01, 0.25, 0.35, 0.35, 0.25)(i) * Me.Width
.CurrentY = Array(0.05, 0, 0.13, 0.32, 0.45)(i) * Me.Height
.FontSize = Array(150, 50, 50, 50, 50)(i)
Print Chr(&HA1EF)
Next
End With
End Sub
[em16]

瑞瑞

。。。国庆放假没人看。。椅子

游戏之家站长

天天都在看，只是现在论坛已经变味了。

蓝屏死机

变酸了