• Progressbar  ( Max = 30000)
• Timer1 (Enabled = False dan Interval = 1000)
• Label1 (Caption = Waktu)
• Label2 (Caption = Nama Komputer)
•  Label3 (Caption = IP Komputer)
• Label4 (Caption = Port)
• Command1 (Caption = Deteksi)
• Command2 (Caption = Keluar)

* Kira-Kira seperti ini kalau sudah propertinya diganti ( saya design sendiri ) :

4. Kalau sudah di design silahkan klik kanan pada form dan pilih view code masukan code ini :

Dim a As Integer

Private Sub Command1_Click()
For a = 1 To 30000
ProgressBar1.Value = a
Next a
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()End
End SubPrivate Sub Timer1_Timer()Label1.Caption = Format _
(Now, "HH:MM:SS - dd mmmm yyyy")Label2.Caption = "Nama Komputer : " _
& Winsock1.LocalHostName
Label3.Caption = "IP Komputer : " & _
Winsock1.LocalIP
Label4.Caption = "Port : " _
& Winsock1.LocalPort
End Sub

5. Selesai ... Untuk mencoba program tersebut silahkan tekan F5 Pada keyboard Jika anda masih belum paham bisa lihat videonya disini

*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...