Eso lo puedes hacer con un text box utilizando fuentes.
Pon en un formulario un Boton, un textboxt, un label y un timer.
luego de eso usa este codigo, es mas o menos lo que quieres.
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static a As Byte = 0
a = a + 1
TextBox1.Text = TextBox1.Text & "."
Label1.Text = a
If a > 9 Then
TextBox1.Font = New Font("Wingdings 2", 14)
TextBox1.Text = "P"
a = a + 0
a = 0
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Font = New Font("times new roman", 14)
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
End Class
Ab.
