Hell! I need help with my Victory Screen. Basically when you win a battle, the Victory Screen Comes up. Everything is good BUT i'm kinda having trouble with something. I made 2 Timers for 2 labels, tmrCoins(for lblCoins), and tmrSP(for lblEXP). Basically what i want it to do is count down the label to 0/ subtract it till it hits 0. But it wont do anything. I also want it so in the Timer, if you press Enter/Return, it skips the count down and exits the form.

vb Code:
  1. Option Explicit

  2. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

  3. Public FrmMove As Boolean

  4. Public DragX As Long

  5. Public Dragy As Long

  6.  
  7. Private Sub Form_Load()

  8. Dim I As Integer

  9.     MakeTransparent Me.hwnd, 100

  10.     'Ex: all transparent at ratio 140/255

  11.     'ActiveTransparency Me, True, False, 140, Me.BackColor

  12.     'Ex: Form transparent, visible component at ratio 140/255

  13.     'ActiveTransparency Me, True, True, 140, Me.BackColor

  14.      

  15.     'Example display the form transparency degradation

  16.     ActiveTransparency Me, True, False, 0

  17.     Me.Show

  18.     For I = 0 To 255 Step 3

  19.         ActiveTransparency Me, True, False, I

  20.         Me.Refresh

  21.     Next I

  22.     Call StopBGM

  23.     'Call StopSound

  24.     frmVictory.SetFocus

  25. End Sub

  26.  
  27. Private Sub Form_KeyPress(KeyAscii As Integer)

  28.     If KeyAscii = vbKeyReturn Then

  29.         tmrCoins.Enabled = True

  30.         tmrSP.Enabled = True

  31.     End If

  32. End Sub

  33.  
  34. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  35.     FrmMove = True

  36.     DragX = X

  37.     Dragy = Y

  38. End Sub

  39.  
  40. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  41. Dim nx, ny

  42.     If FrmMove Then

  43.         nx = frmVictory.Left + X - DragX

  44.         ny = frmVictory.top + Y - Dragy

  45.         frmVictory.Left = nx

  46.         frmVictory.top = ny

  47.     End If

  48. End Sub

  49.  
  50. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

  51. Dim nx, ny

  52.     nx = frmVictory.Left + X - DragX

  53.     ny = frmVictory.top + Y - Dragy

  54.     frmVictory.Left = nx

  55.     frmVictory.top = ny

  56.     FrmMove = False

  57. End Sub

  58.  
  59. Private Sub tmrCoins_Timer()

  60. Dim Num As Integer

  61.  
  62. If GetAsyncKeyState(vbKeyReturn) And tmrCoins.Enabled = True Then

  63.     tmrCoins.Enabled = False

  64.     frmVictory.Visible = False

  65.     Call StopBGS

  66.     Call PlayBGM(Map(GetPlayerMap(MyIndex)).Music)

  67. End If

  68.  
  69. Num = Val(lblCoins.Caption)

  70.  
  71. If Num <= 0 Then

  72.     tmrCoins.Enabled = False

  73. Else

  74.     Num = Num - 1

  75.     Call PlaySound("MP_Coin.wav.wav")

  76. End If

  77. End Sub

  78.  
  79. Private Sub tmrSP_Timer()

  80. Dim Num As Integer

  81.  
  82. If GetAsyncKeyState(vbKeyReturn) And tmrSP.Enabled = True Then

  83.     tmrSP.Enabled = False

  84.     frmVictory.Visible = False

  85.     Call StopBGS

  86.     Call PlayBGM(Map(GetPlayerMap(MyIndex)).Music)

  87. End If

  88.  
  89. Num = Val(lblEXP.Caption)

  90.  
  91. If Num <= 0 Then

  92.     tmrSP.Enabled = False

  93. Else

  94.     Num = Num - 1

  95.     Call PlaySound("Magic_coin.wav")

  96. End If

  97. End Sub

It doesnt Count down/ Subtract to 0, and when you press Enter once, it exits the form. I tried to have it so when you press enter once, it activates the timers, then when you press enter again it skips the countdown/ subtracting and Exits the form. Any Help? And sorry, im still learning VB, so I might've not done it properly.