Private Sub Form_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim i As Integer
With Me
'.Move Screen.Width * 0.1, Screen.Height * 0.1, Screen.Width * 0.2, Screen.Height * 0.2
.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(60, 20, 20, 20, 20)(i)
Print Chr$(&HA1EF)
Next
End With
End Sub
评论