� ��� ��
� ��� ��
� ��� ��

' Add a Label (lblStatus), a Button (btnJump), and a TextBox (txtConsole)
' Set txtConsole.MultiLine = True and txtConsole.ScrollBars = 2 (Vertical)

Dim jumpCount As Integer
Dim rng As New Random

Private Sub Form_Load()
Me.Caption = "CS2 Bunny Hop Simulator"
lblStatus.Caption = "Ready to jump!"
txtConsole.Text = "Welcome to CS2 Bunny Hop Simulator!" & vbCrLf
jumpCount = 0
End Sub

Private Sub btnJump_Click()
jumpCount = jumpCount + 1
Dim msg As String

Select Case jumpCount
Case 1
msg = "You jumped... kinda."
Case 2
msg = "Ok! You're getting the hang of it."
Case 3
msg = "You're air strafing like a legend!"
Case 5
msg = "Smoother than s1mple’s aim..."
Case 10
msg = "VAC is watching you 👀"
Case 20
msg = "You're a bhop god. Touch grass."
Case Else
msg = "Jump #" & jumpCount & " - Keep it up!"
End Select

lblStatus.Caption = "Jumps: " & jumpCount
txtConsole.Text = txtConsole.Text & msg & vbCrLf

' Auto scroll
txtConsole.SelStart = Len(txtConsole.Text)
txtConsole.SelLength = 0
txtConsole.SetFocus
End Sub