[AppButton1Passive]
Meter=STRING
x=0
y=0
SolidColor=0,0,0,1
Text=#App1#
FontFace=#FontFace#
FontSize=#FontSize#
FontColor=#FontColorPassive#
StringAlign=LEFT
StringEffect=#StringEffect#
FontEffectColor=#FontEffectColor#
AntiAlias=1
MouseOverAction=!Execute [!ShowMeter AppButton1Active][!HideMeter AppButton1Passive][!Update]

Private Sub btnDoWhile_Click(sender As Object, e As EventArgs) Handles btnDoWhile.Click
'Declare variables for Do/While Loop
Dim intDistance As Decimal
Dim intSpeed As Decimal = 60
Dim intTime As Decimal
Dim strTime As String
Dim intCount As Integer = 0
'User input.
strTime = InputBox("Please the amount of time that you traveled.", "Time Needed")
'Convert user input to an integer.
If Integer.TryParse(strTime, intTime) Then
'Set time to be greater than 0.
If intTime > 0 Then
'Calculate distance.
Do While intCount <= intTime
intDistance = intSpeed * intTime
intCount += 1


Loop
'Display items in listbox.
lstOutput.Items.Add(intTime & vbTab & vbTab & intDistance)

Else
'Error message.
MessageBox.Show("Please enter a valid travel time")
End If
End If

End Sub

Private Sub btnForNext_Click(sender As Object, e As EventArgs) Handles btnForNext.Click
'Declare variables For/Next loop.
Dim intDistance As Decimal
Dim intSpeed As Decimal = 60
Dim intTime As Decimal
Dim strTime As String
Dim intCount As Integer = 0
'User input.
strTime = InputBox("Please the amount of time that you traveled.", "Time Needed")
'Convert user input to an integer.
If Integer.TryParse(strTime, intTime) Then
'Set time to be greater than 0.
If intTime > 0 Then
'Calculate distance traveled.
For intCount = 0 To intTime
intDistance = intSpeed * intTime
intCount += 1


Next
'Display items in listbox.
lstOutput.Items.Add(intTime & vbTab & vbTab & intDistance)

Else
'Error message.
MessageBox.Show("Please enter a valid travel time")
End If
End If
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
'Clear items in listbox.
lstOutput.Items.Clear()
End Sub
End Class