wubird.frm

会飞的鸟,右击上发条,含全部源代码,在VB与WINXP上测试通过!

        lpPoint(4).Y = 60
        lpPoint(5).X = 14
        lpPoint(5).Y = 58
        lpPoint(6).X = 14
        lpPoint(6).Y = 54
        lpPoint(7).X = 15
        lpPoint(7).Y = 52
        lpPoint(8).X = 14
        lpPoint(8).Y = 48
        lpPoint(9).X = 16
        lpPoint(9).Y = 44
        lpPoint(10).X = 7
        lpPoint(10).Y = 44
        lpPoint(11).X = 6
        lpPoint(11).Y = 43
        lpPoint(12).X = 14
        lpPoint(12).Y = 38
        lpPoint(13).X = 14
        lpPoint(13).Y = 35
        lpPoint(14).X = 15
        lpPoint(14).Y = 33
        lpPoint(15).X = 17
        lpPoint(15).Y = 29
        lpPoint(16).X = 25
        lpPoint(16).Y = 25
        lpPoint(17).X = 31
        lpPoint(17).Y = 22
        lpPoint(18).X = 38
        lpPoint(18).Y = 22
        lpPoint(19).X = 40
        lpPoint(19).Y = 24
        lpPoint(20).X = 52
        lpPoint(20).Y = 24
        lpPoint(21).X = 57
        lpPoint(21).Y = 27
        lpPoint(22).X = 61
        lpPoint(22).Y = 30
        lpPoint(23).X = 63
        lpPoint(23).Y = 32
        lpPoint(24).X = 63
        lpPoint(24).Y = 34
        lpPoint(25).X = 61
        lpPoint(25).Y = 36
        lpPoint(26).X = 62
        lpPoint(26).Y = 38
        lpPoint(27).X = 65
        lpPoint(27).Y = 42
        lpPoint(28).X = 65
        lpPoint(28).Y = 45
        lpPoint(29).X = 69
        lpPoint(29).Y = 51
        lpPoint(30).X = 69
        lpPoint(30).Y = 54
        lpPoint(31).X = 68
        lpPoint(31).Y = 56
        lpPoint(32).X = 66
        lpPoint(32).Y = 56
        lpPoint(33).X = 67
        lpPoint(33).Y = 58
        lpPoint(34).X = 66
        lpPoint(34).Y = 62
        lpPoint(35).X = 65
        lpPoint(35).Y = 63
        lpPoint(36).X = 62
        lpPoint(36).Y = 63
        lpPoint(37).X = 58
        lpPoint(37).Y = 60
        lpPoint(38).X = 58
        lpPoint(38).Y = 61
        lpPoint(39).X = 57
        lpPoint(39).Y = 63
        lpPoint(40).X = 54
        lpPoint(40).Y = 65
        lpPoint(41).X = 43
        lpPoint(41).Y = 65
        lpPoint(42).X = 39
        lpPoint(42).Y = 66
        lpPoint(43).X = 39
        lpPoint(43).Y = 67
        lpPoint(44).X = 37
        lpPoint(44).Y = 67
        lpPoint(45).X = 37
        lpPoint(45).Y = 77
        lpPoint(46).X = 29
        lpPoint(46).Y = 77
        lpPoint(47).X = 29
        lpPoint(47).Y = 67
        MaxPolygonPoints = 48
    ElseIf HeadNo = 3 Then
        lpPoint(0).X = 30
        lpPoint(0).Y = 72
        lpPoint(1).X = 30
        lpPoint(1).Y = 70
        lpPoint(2).X = 22
        lpPoint(2).Y = 66
        lpPoint(3).X = 15
        lpPoint(3).Y = 66
        lpPoint(4).X = 15
        lpPoint(4).Y = 62
        lpPoint(5).X = 17
        lpPoint(5).Y = 63
        lpPoint(6).X = 17
        lpPoint(6).Y = 59
        lpPoint(7).X = 18
        lpPoint(7).Y = 57
        lpPoint(8).X = 17
        lpPoint(8).Y = 53
        lpPoint(9).X = 19
        lpPoint(9).Y = 49
        lpPoint(10).X = 10
        lpPoint(10).Y = 49
        lpPoint(11).X = 9
        lpPoint(11).Y = 48
        lpPoint(12).X = 17
        lpPoint(12).Y = 43
        lpPoint(13).X = 17
        lpPoint(13).Y = 40
        lpPoint(14).X = 18
        lpPoint(14).Y = 38
        lpPoint(15).X = 20
        lpPoint(15).Y = 34
        lpPoint(16).X = 28
        lpPoint(16).Y = 30
        lpPoint(17).X = 34
        lpPoint(17).Y = 27
        lpPoint(18).X = 41
        lpPoint(18).Y = 27
        lpPoint(19).X = 43
        lpPoint(19).Y = 29
        lpPoint(20).X = 55
        lpPoint(20).Y = 29
        lpPoint(21).X = 60
        lpPoint(21).Y = 32
        lpPoint(22).X = 64
        lpPoint(22).Y = 35
        lpPoint(23).X = 66
        lpPoint(23).Y = 37
        lpPoint(24).X = 66
        lpPoint(24).Y = 39
        lpPoint(25).X = 64
        lpPoint(25).Y = 41
        lpPoint(26).X = 65
        lpPoint(26).Y = 43
        lpPoint(27).X = 68
        lpPoint(27).Y = 47
        lpPoint(28).X = 68
        lpPoint(28).Y = 50
        lpPoint(29).X = 72
        lpPoint(29).Y = 56
        lpPoint(30).X = 72
        lpPoint(30).Y = 59
        lpPoint(31).X = 71
        lpPoint(31).Y = 61
        lpPoint(32).X = 69
        lpPoint(32).Y = 61
        lpPoint(33).X = 70
        lpPoint(33).Y = 63
        lpPoint(34).X = 69
        lpPoint(34).Y = 67
        lpPoint(35).X = 68
        lpPoint(35).Y = 68
        lpPoint(36).X = 65
        lpPoint(36).Y = 68
        lpPoint(37).X = 61
        lpPoint(37).Y = 65
        lpPoint(38).X = 61
        lpPoint(38).Y = 66
        lpPoint(39).X = 60
        lpPoint(39).Y = 68
        lpPoint(40).X = 57
        lpPoint(40).Y = 70
        lpPoint(41).X = 46
        lpPoint(41).Y = 70
        lpPoint(42).X = 42
        lpPoint(42).Y = 71
        lpPoint(43).X = 39
        lpPoint(43).Y = 72
        lpPoint(44).X = 38
        lpPoint(44).Y = 72
        lpPoint(45).X = 36
        lpPoint(45).Y = 77
        lpPoint(46).X = 28
        lpPoint(46).Y = 77
        lpPoint(47).X = 30
        lpPoint(47).Y = 72
        MaxPolygonPoints = 48
    ElseIf HeadNo = 4 Then
        lpPoint(0).X = 26
        lpPoint(0).Y = 72
        lpPoint(1).X = 26
        lpPoint(1).Y = 70
        lpPoint(2).X = 18
        lpPoint(2).Y = 66
        lpPoint(3).X = 11
        lpPoint(3).Y = 66
        lpPoint(4).X = 11
        lpPoint(4).Y = 62
        lpPoint(5).X = 13
        lpPoint(5).Y = 63
        lpPoint(6).X = 13
        lpPoint(6).Y = 59
        lpPoint(7).X = 14
        lpPoint(7).Y = 57
        lpPoint(8).X = 13
        lpPoint(8).Y = 53
        lpPoint(9).X = 15
        lpPoint(9).Y = 49
        lpPoint(10).X = 6
        lpPoint(10).Y = 49
        lpPoint(11).X = 5
        lpPoint(11).Y = 48
        lpPoint(12).X = 13
        lpPoint(12).Y = 43
        lpPoint(13).X = 13
        lpPoint(13).Y = 40
        lpPoint(14).X = 14
        lpPoint(14).Y = 38
        lpPoint(15).X = 16
        lpPoint(15).Y = 34
        lpPoint(16).X = 24
        lpPoint(16).Y = 30
        lpPoint(17).X = 30
        lpPoint(17).Y = 27
        lpPoint(18).X = 37
        lpPoint(18).Y = 27
        lpPoint(19).X = 39
        lpPoint(19).Y = 29
        lpPoint(20).X = 51
        lpPoint(20).Y = 29
        lpPoint(21).X = 56
        lpPoint(21).Y = 32
        lpPoint(22).X = 60
        lpPoint(22).Y = 35
        lpPoint(23).X = 62
        lpPoint(23).Y = 37
        lpPoint(24).X = 62
        lpPoint(24).Y = 39
        lpPoint(25).X = 60
        lpPoint(25).Y = 41
        lpPoint(26).X = 61
        lpPoint(26).Y = 43
        lpPoint(27).X = 64
        lpPoint(27).Y = 47
        lpPoint(28).X = 64
        lpPoint(28).Y = 50
        lpPoint(29).X = 68
        lpPoint(29).Y = 56
        lpPoint(30).X = 68
        lpPoint(30).Y = 59
        lpPoint(31).X = 67
        lpPoint(31).Y = 61
        lpPoint(32).X = 65
        lpPoint(32).Y = 61
        lpPoint(33).X = 66
        lpPoint(33).Y = 63
        lpPoint(34).X = 65
        lpPoint(34).Y = 67
        lpPoint(35).X = 64
        lpPoint(35).Y = 68
        lpPoint(36).X = 61
        lpPoint(36).Y = 68
        lpPoint(37).X = 57
        lpPoint(37).Y = 65
        lpPoint(38).X = 57
        lpPoint(38).Y = 66
        lpPoint(39).X = 56
        lpPoint(39).Y = 68
        lpPoint(40).X = 53
        lpPoint(40).Y = 70
        lpPoint(41).X = 42
        lpPoint(41).Y = 70
        lpPoint(42).X = 38
        lpPoint(42).Y = 71
        lpPoint(43).X = 35
        lpPoint(43).Y = 72
        lpPoint(44).X = 36
        lpPoint(44).Y = 77
        lpPoint(45).X = 28
        lpPoint(45).Y = 77
        lpPoint(46).X = 27
        lpPoint(46).Y = 72
        MaxPolygonPoints = 47
    End If
End Sub

Private Sub DoSetBody()
    lpPoint(0).X = 14
    lpPoint(0).Y = 94
    lpPoint(1).X = 14
    lpPoint(1).Y = 90
    lpPoint(2).X = 15
    lpPoint(2).Y = 88
    lpPoint(3).X = 16
    lpPoint(3).Y = 85
    lpPoint(4).X = 19
    lpPoint(4).Y = 81
    lpPoint(5).X = 22
    lpPoint(5).Y = 78
    lpPoint(6).X = 24
    lpPoint(6).Y = 77
    lpPoint(7).X = 38
    lpPoint(7).Y = 77
    lpPoint(8).X = 39
    lpPoint(8).Y = 78
    lpPoint(9).X = 42
    lpPoint(9).Y = 78
    lpPoint(10).X = 44
    lpPoint(10).Y = 77
    lpPoint(11).X = 47
    lpPoint(11).Y = 77
    lpPoint(12).X = 50
    lpPoint(12).Y = 79
    lpPoint(13).X = 51
    lpPoint(13).Y = 82
    lpPoint(14).X = 51
    lpPoint(14).Y = 86
    lpPoint(15).X = 50
    lpPoint(15).Y = 88
    lpPoint(16).X = 52
    lpPoint(16).Y = 88
    lpPoint(17).X = 52
    lpPoint(17).Y = 92
    lpPoint(18).X = 50
    lpPoint(18).Y = 92
    lpPoint(19).X = 50
    lpPoint(19).Y = 94
    MaxPolygonPoints = 20
End Sub

Private Sub DoSetBottom()
    If LegsNo = 0 Then
        lpPoint(0).X = 5
        lpPoint(0).Y = 116
        lpPoint(1).X = 5
        lpPoint(1).Y = 112
        lpPoint(2).X = 12
        lpPoint(2).Y = 107
        lpPoint(3).X = 14
        lpPoint(3).Y = 106
        lpPoint(4).X = 20
        lpPoint(4).Y = 105
        lpPoint(5).X = 20
        lpPoint(5).Y = 103
        lpPoint(6).X = 20
        lpPoint(6).Y = 101
        lpPoint(7).X = 17
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 46
        lpPoint(15).Y = 104
        lpPoint(16).X = 49
        lpPoint(16).Y = 104
        lpPoint(17).X = 53
        lpPoint(17).Y = 106
        lpPoint(18).X = 58
        lpPoint(18).Y = 111
        lpPoint(19).X = 58
        lpPoint(19).Y = 116
        lpPoint(20).X = 40
        lpPoint(20).Y = 116
        lpPoint(21).X = 39
        lpPoint(21).Y = 117
        lpPoint(22).X = 6
        lpPoint(22).Y = 117
        MaxPolygonPoints = 23
    ElseIf LegsNo = 1 Then
        lpPoint(0).X = 5
        lpPoint(0).Y = 116
        lpPoint(1).X = 5
        lpPoint(1).Y = 112
        lpPoint(2).X = 9
        lpPoint(2).Y = 108
        lpPoint(3).X = 16
        lpPoint(3).Y = 105
        lpPoint(4).X = 20
        lpPoint(4).Y = 105
        lpPoint(5).X = 20
        lpPoint(5).Y = 102
        lpPoint(6).X = 19
        lpPoint(6).Y = 101
        lpPoint(7).X = 16
        lpPoint(7).Y = 99
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 55
        lpPoint(14).Y = 108
        lpPoint(15).X = 57
        lpPoint(15).Y = 110
        lpPoint(16).X = 57
        lpPoint(16).Y = 115
        lpPoint(17).X = 40
        lpPoint(17).Y = 115
        lpPoint(18).X = 40
        lpPoint(18).Y = 117
        lpPoint(19).X = 6
        lpPoint(19).Y = 117
        MaxPolygonPoints = 20
    ElseIf LegsNo = 2 Then
        lpPoint(0).X = 6
        lpPoint(0).Y = 116
        lpPoint(1).X = 6
        lpPoint(1).Y = 112
        lpPoint(2).X = 13
        lpPoint(2).Y = 107
        lpPoint(3).X = 15
        lpPoint(3).Y = 106
        lpPoint(4).X = 21
        lpPoint(4).Y = 105
        lpPoint(5).X = 21
        lpPoint(5).Y = 103
        lpPoint(6).X = 21
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 52
        lpPoint(15).Y = 106
        lpPoint(16).X = 56
        lpPoint(16).Y = 110
        lpPoint(17).X = 56
        lpPoint(17).Y = 115
        lpPoint(18).X = 41
        lpPoint(18).Y = 115
        lpPoint(19).X = 41