Public Class Form1

     Dim DetikStart As Integer
     Private Sub StartButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click
         DetikStart = 5
         Timer.Start()
     End Sub

     Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
         If DetikStart = 0 Then
             RichTextBox.Text = RichTextBox.Text & "Starting game"
             Shell(System.AppDomain.CurrentDomain.BaseDirectory & "cstrike.exe +map de_dust")
             Me.Close()
         Else
             RichTextBox.Text = RichTextBox.Text & "Game akan dimulai setelah " & DetikStart & vbNewLine
             DetikStart = DetikStart - 1
         End If
     End Sub
End Class