用vb画彩色五角星

Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal s As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Sub Form_Click()
For I = 1 To 10
star Int(Rnd * 11 + 20), Int(Rnd * 3600), Int(Rnd * Width), Int(Rnd * Height), QBColor(Int(Rnd * 16))
Next
End Sub
Sub star(ByVal size As Integer, ByVal angle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal colr As ColorConstants)
mf = CreateFont(size, 0, angle, 0, 400, False, False, False, 1, 0, 1, 2, 0, "mf")
Selec