1. Buat Richtext, Button, dan Timer
2. Atur interval timernya menjadi 1000 (1 Detik)
3. Script
Code
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
4. Jadi deehh...