• Home
 · 
• Games
 · 
• For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go

For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go

For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that goes back and forth, and starts and stops at

API Declarations


Dim i As Single
Dim Bigger As Boolean
Dim bGo As Boolean
' add a timer to the form and name it Timer1 (default). Set its interval to whatever speed you like



Rate For those of you who have played NFL 2K2, it's the kick power meter. It is a circular meter that go

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    'set our variables
    i = 0
    Bigger = True
    bGo = True
End Sub

Private Sub Slider1_Change()
    Timer1.Interval = 110 - Slider1.Value * 10
End Sub

Private Sub Timer1_Timer()
    Dim a As Integer
    If bGo = True Then 'so we can stop and start it at will
        If i >= 6 Then
            Bigger = False
        ElseIf i <= 0.005 Then
            Bigger = True
        End If
        
        If Bigger = True Then
            i = i + 0.05
            For a = 900 To 1000
                ' this draws an arc 100 times 1 pixel apart.  Change the values to make the circle smaller or larger.
                Me.Circle (ScaleWidth / 2, ScaleHeight / 2), a, vbRed, 0.005, i
            Next
        Else
            i = i - 0.05
            For a = 880 To 1020
                ' this draws an arc 100 times 1 pixel apart.  Change the values to make the circle smaller or larger.
                Me.Circle (ScaleWidth / 2, ScaleHeight / 2), a, Me.BackColor, i, 0.005
            Next
        End If
    End If
End Sub