Web Rank Checker vb6

web rank checker buatan saya sangat sederhana dan sangat simple sekali dibawah ini kodenya:

rivate Sub Command1_Click()
WebBrowser1.Document.All("Check").Value = Text1
WebBrowser1.Document.All("cek").Click
WebBrowser1.Silent = True

End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate ("http://shareany.net/cek.php")
WebBrowser1.Silent = True
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://shareany.net/cek.php")
WebBrowser1.Silent = True
End Sub



Private Sub Label2_Click()
End
End Sub

Download Softwarenya disini

SMS Software Gratis tanpa biaya seperakpun

Software SMS ini bisa digunakan oleh siapa saja, dan jangan berani-berani memakai software ini buat penipuan yes, karena log data lokasi elu kedetek semua.

Biar bisa berjalan software ini membutuhkan installasi yang mendukung yaitu microsoft Office Access 2007, kalo ga, ga bakalan bisa digunain.

download softwarenya disini

Efek Gambar VB6 (Picture Effect VB6)

Efek Gambar ini mungkin bisa dijadikan sebagai awal permulaan pembuatan software video editing.

Kodenya seperti dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub


Private Sub Command3_Click()
Timer1.Enabled = False
End Sub






Private Sub Timer1_Timer()
Picture1.Height = Picture1.Height + 10
Picture1.Width = Picture1.Width + 5
Label1.Width = Label1.Width + 10
Label1.Height = Label1.Width + 5
Label2.Width = Label1.Width + 10
Label2.Height = Label1.Width + 5
End Sub

Downlod Filenya Disini

Font Zooming Manual & Otomatis VB6

Font Zoom ini dibuat menggunakan VB6  dengan menu merubah font menjadi BOLD, ITALIC, UNDERLINDE, Merubah Ukuran Font, Merubah Jenis Font, Zoom 5x Manual, Zoom 10x Manual, Zoom 100x Manual, Zoom Otomatis, Stop Zooming, Mengganti warna Font pada label1 dan reset data.

 Kodenya seperti ini:

Private Sub Combo1_Click()
Label1.Font = Combo1.Text
End Sub


Private Sub Combo2_Click()
Label1.FontSize = Combo2.Text
End Sub


Private Sub Command1_Click()
Label1.FontSize = Text1.FontSize + 5
End Sub

Private Sub Command10_Click()
If Label1.ForeColor = &HF0& Then
Label1.ForeColor = &H80000012
Else
Label1.ForeColor = &HF0&
End If
End Sub

Private Sub Command2_Click()
Label1.FontSize = Text1.FontSize + 10
End Sub

Private Sub Command3_Click()
Label1.FontSize = 12
Timer1.Enabled = False
End Sub


Private Sub Command4_Click()
If Label1.FontBold = True Then
Label1.FontBold = False
Else
Label1.FontBold = True
End If
End Sub

Private Sub Command5_Click()
If Label1.FontUnderline = True Then
Label1.FontUnderline = False
Else
Label1.FontUnderline = True
End If
End Sub

Private Sub Command6_Click()
If Label1.FontItalic = True Then
Label1.FontItalic = False
Else
Label1.FontItalic = True
End If
End Sub

Private Sub Command7_Click()
Label1.FontSize = Text1.FontSize + 100
End Sub



Private Sub Command8_Click()
Timer1.Enabled = True
Label1.Font = "Agency FB"
End Sub

Private Sub Command9_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Label1.FontSize = 12
End Sub

Private Sub Text1_Change()
Label1 = Text1
End Sub

Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 5
If Label1.ForeColor = &HF0& Then
Label1.ForeColor = &H80000012
Else
Label1.ForeColor = &HF0&
End If
End Sub

Download Filenya Disini

Simple Alarm vb6

Buatlah 1 form dengan menu
2 timer interval 1000, timer 1 enabled true dan timer 2 enabled false
3 text
 1 command

3 label.

masukkan kode dibawah ini.



Private Sub Command1_Click()
Timer2.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub





Private Sub Timer1_Timer()
Label1 = Hour(Time)
Label2 = Minute(Time)
Label3 = Second(Time)
End Sub

Private Sub Timer2_Timer()
If Text1 = Label1 And Text2 = Label2 Then
MsgBox (Text3)
Text1 = ""
Text2 = ""
Text3 = ""
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
End If
End Sub

atau download saja softwarenya disini