Mengenal Visual Basic

Visual Basic (VB) adalah salah satu bahasa pemrograman komputer untuk database. Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu.
Bahasa pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner's All-purpose Symbolic Intruction Code) yang dikembang pada era 1950-an.

Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows.
Visual Basic merupakan salah satu bahasa pemrograman komputer yang mendukung object (Object Oriented Programming = OOP).

Menu Bar, digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project, dll.
Main Toolbar, digunakan untuk melakukan tugas-tugas tertentu dengan cepat.
Jendela Project, jendela ini berisi gambaran dari semua module yang terdapat dalam aplikasi anda. Anda dapat menggunakan icon Toggle Folders untuk menampilkan modul-modul dalam jendela tersebut secara di group atau berurut berdasarkan nama. Anda dapat menggunakan Ctrl+R pada keyboard untuk menampilkan jendela project ataupun menggunakan icon Project Explorer.
Jendela Form Designer, jendela ini merupakan tempat anda untuk merancang user interface dari aplikasi anda. Jadi jendela jendela ini menyerupai kanvas bagi seorang pelukis.
Jendela Toolbox, jendela ini berisi komponen-komponen yang dapat anda gunakan untuk mengembangkan user interface.
Jendela Code, merupakan tempat bagi anda untuk menulis koding. Anda dapat menampilkan jendela ini dengan menggunakan tombol Shift+F7 pada keyboard.
Jendela Properties, merupakan daftar properti-properti object yang sedang terpilih sebagai contohnya anda dapat mengubah warna tulisan (foreground) dan warna latar belakang (background). Anda dapat menggunakan tombol F4 pada keyboard untuk menampilkan jendela properties ini.
Jendela Color Palette, adalah fasilitas cepat untuk mengubah warna suatu object.
Jendela Form Layout, akan menunjukkan bagaimana form bersangkutan ditampilkan ketika runtime.

Tips Membuat Text Berjalan Dengan VB

Dalam dunia pemrograman membuat text berjalan adalah salah satu hal yang sangat mudah. Mungkin kita yang tidak mengenal pemrograman akan bertanya-tanya. "Kenapa text tersebut bisa berjalan?". Bagi pembuat program, itu hal yang mudah untuk menjawab pertanyaan tersebut karena dengan program aplikasi seperti Visual Basic, Borland Delphi, Turbo Pascal, HTML maupun yang lainnya. Kita bisa menjawab pertanyaan tersebut.


Tanpa panjang lebar kita akan mencoba membuat program text berjalan dengan aplikasi Visual basic. Caranya adalah sebagai berikut.

1. Pada pembuatan program ini, kita hanya membutuhkan Label dan Timer. Label untuk textnya itu sendiri dan Timer untuk menjalankan text tersebut. Sehingga tampak seperti pada gambar disamping.

2. Ketikkan listing program berikut pada kode editor.

Private Sub Form_Load()
Label1.Caption = "Text Berjalan"
Timer1.Interval = "1"
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 20
If Label1.Left<-3000 Then
Label1.Left = 5000
End If
End Sub

3. Simpan Form dan Project tersebut.

4. Jalankan program tersebut dengan cara kli menu Run pada MenuBar pilih Start atau tekan F5 pada keyboard.

Program sederhana ini sudah bisa menjawabpertanyaan tadi. Bila anda kurang suka dengan tampilan program diatas, anda bisa tambah atau rubah sendiri sesuai dengan keinginan anda.

Catatan :
a). Text atau angka diatas yang berwarna biru bisa diubah sesuai dengan keinginan anda.
b). Semakin besar interval timer, maka akan semakin lambat text yang berjalan. Begitu juga sebaliknya.
c). Semakin besar pengurangannya (Label1.Left = Label1.Left - 20), maka akan semakin cepat text yang berjalan dan begitu juga sebaliknya.

Semoga Sukses...!

Membuat Kalkulator Sendiri Dengan VB

Penghitungan bilangan merupakan hal yang rumit jika bilangan yang dihitung dalam jumlah besar. Penghitungan juga dipelajari pada pelajaran Matematika. Untuk menghitung sesuatu dalam jumlah besar dibutuhkan kalkulator atau yang lain dalam memudahkan penghitungan. Untuk mendapatkan kalkulator tersebut tidak mudah juga karena butuh uang untuk membelinya. Bagaimana kalau kita tidak mempunyai uang dan kita harus menyelesaikan penghitungan bilangan dalam jumlah yang besar.

Kini kita akan membuat program kalkulator / penghitung untuk memudahkan kita dalam menghitung sesuatu, baik dalam jbesar maupun kecil. Dalam dunia bisnis penghitungan adalah hal yang harus dipelajari karena untuk manghitung pendapatan, pengeluaran, laba, maupum rugi, dan lain-lainnya.

Dengan Visual Basic semuanya bisa mudah...!
Langsung aja yaaa buatnya...!

1. Tambahkan kontrol-kontrol ke Form dan atur Propertiesnya sesuai dengan tabel dibawah ini.

Jenis kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Kalkulator
Label	Label1	Caption	Bilangan Pertama
	Label2		Operator
	Label3		Bilangan Kedua
	Label4		Hasil
CommandButton	Button1	Caption	Hitung
		Name
	Button2	Caption	Hapus
		Name
ComboBox	Combo1	Name	Operator

2. Susunlah kontrol-kontrol tersebut sehingga tampak pada gambar disamping.

3.Ketikkan kode listing berikut pada kode editor.

Private Sub Form_Load()
Combo1.AddItem "+ (Tambah)"
Combo1.AddItem "- (Kurang)"
Combo1.AddItem "* (Kali)"
Combo1.AddItem "/ (Bagi)"
End Sub

Private Sub hapus_Click()
bil1=""
bil2=""
Combo1=""
hasil=""
End Sub

Private Sub hitung_Click()
If Combo1.Text="+ (Tambah)" then
hasil.Text=Val(bil1.Text) + Val(bil2.Text)
elseIf Combo1.Text="- (Kurang)" then
hasil.Text=Val(bil1.Text) - Val(bil2.Text)
elseIf Combo1.Text="* (Kali)" then
hasil.Text=Val(bil1.Text) * Val(bil2.Text)
elseIf Combo1.Text="/ (Bagi)" then
hasil.Text=Val(bil1.Text) / Val(bil2.Text)
End If
End Sub

4. Simpan Form dan Project tersebut

5. Jalankan program kalkulator tersebut. Kalkulator buatan sendiri siap digunakan untuk memudahkan penghitungan. Cara menjalankan program tersebut sama dengan menjalankan program-program lainnya. Cukup tekan F5 pada keyboard.

Selamat Mencoba.....!

Program Membuka dan Menutup CD/DVD Rom

Nah bila anda sering membackup data dengan cd/dvd pasti anda masih akan membuka cd/dvd dengan menekan tombol open pada cd/dvd rom-nya.jika seperti itu, maka akan terasa lama jika masih membuka dengan menekan tombol open tersebut yang terdapat pada cd/dvd rom tersebut.untuk meringankan/mempercepat pembukaan cd/dvd rom tanpa menekan tombol tersebut,mari kita mencoba untuk membuat programnya dengan menggunakan visual basic.

Ini berbeda dengan program lainnya karena membutuhkan module untuk menampung kode-kode.untuk menambah module pada project anda mudah sekali yaitu dengan mengklik project pada menubar lalu pilih add module kemudian open, maka modulenya akan muncul.

Adapaun cara untuk membuat program tersebut ikuti langkah-langkah berikut.

1. Tambahkan kontrol-kontrol berikut pada form dan atur propertiesnya.

   Jenis Kontrol	Nama Kontrol	Properties	Nilai
   Form	Form1	Caption	CD Rom
   		BackColor	&H00000000&
   Module	Module1	-	-
   Label	Label1	Caption	Program Untuk Membuka dan Menutup CD/DVD Rom
   		ForeColor	&H000000C0&
   CommandButton	Command1	Caption	Open
   CommandButton	Command2	Caption	Close

   
   
2. Susunlah kontrol-kontrol tersebut sehingga tanpak seperti gambar dibawah ini.
3. Tulis kode dibawah ini pada kode editor.

Tulis kode dibawah ini pada module yang telah ditambah pada project anda.

Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString _
As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As _
Long
Public Function OpenCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("open " & drv & ": type cdaudio alias " & Alias _
& " wait", vbNullString, 0&, 0&)
retval = mciSendString("set " & Alias & " door open", vbNullString, 0&, _
0&)
OpenCDDoor = retval
End Function
Public Function CloseCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("set " & Alias & " door closed", vbNullString, _
0&, 0&)
retval = mciSendString("close " & Alias, vbNullString, 0&, 0&)
CloseCDDoor = retval
End Function

Dan tulis kode dibawah ini pada form yang telah tersedia

Option Explicit
Private Sub Command1_Click()
OpenCDDoor "E"
End Sub
Private Sub Command2_Click()
CloseCDDoor "E"
End Sub

4. simpan form dan project serta module anda.
5. jalankan program tersebut, dan lihatlah hasilnya…!klik open untuk membuka cd/dvd rom,dan klik close untuk menutup cd/dvd rom.maka anda tidak akan merasa lama jika ingin membuka atau menutup cd/dvd rom dengan program tersebut.

Jika menurut anda kurang menarik program tersebut,anda bisa menambah sendiri sesuai dengan keinginan anda.

Tips Membuat Lampu Natal Dengan VB

Hari natal tak serasa lengkap jika tanpa lampu natal, nah sekarang kita mencoba untuk membuat Lampu Natal sendiri dengan menggunakan aplikasi Visual Basic, tanpa harus mengeluarkan uang untuk membeli lampu natal yang mungkin harganya mahal...!
Dengan lampu natal buatan sendiri tersebut, Hari Natal kita akan menjadi hari natal yang murah dan meriah.

Adapun cara membuatnya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur Propertiesnya sebagai berikut.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Lampu Natal
Shape	Shape1	Caption	Lampu1
		BackColor	&H000040C0&
Shape	Shape2	Caption	Lampu2
		BackColor	&H000040C0&
Shape	Shape3	Caption	Lampu3
		BackColor	&H000040C0&
Shape	Shape4	Caption	Lampu4
		BackColor	&H000040C0&
Timer	Timer1	Interval	700

NB: Semakin kecil nilai interval pada Timer, maka semakin cepat pergantian warnanya. Tapi sebaliknya semakin besar nilainya, maka akan semakin lambat pergantian warnanya.
2. Susunlah letak kontrol-kontrol tersebut pada form sehingga kira-kira seperti gambar dibawah ini.
3. Ketiklah listing berikut pada kode editor.

Dim lamp As Boolean
Private Sub Timer1_Timer()

If Lamp=True Then
Shape2.BackColor=vbGreen
Shape4.BackColor=vbGreen
Shape1.BackColor=vbBlack
Shpae3.BackColor=vbBlack
lamp=False
Else
Shape1.backColor=vbRed
Shape3.BackColor=vbRed
Shape2.BackColor=vbBlue
Shape4.BackColor=vbBlue
lamp=True
End If

End Sub
4. Simpan Form dan Project anda.
5. Kemudian jalankan program tersebut dengan cara klik run pada menu bar, lalu klik start, atau dengan cara menekan F5 pada keyboard, atau juga dengan cara jalan pintas yaitu mengklik tombol yang bergambar simbol Play dibawah menu bar. Setelah anda menjalankan program tersebut lihatlah hasilnya, tidak kalah menarik dengan lampu aslinya kan...?

Virus Brontok Hasil Karya Sendiri

Dalam belakangan waktu ini mungkin anda pernah mendengar nama virus Brontok?......ya betul virus yang menduplikatkan dirinya dan menyesuaikan nama virus barunya berdasarkan folder atau file pada window epxlorer yang aktif. Ciri khas dari virus ini adalah menggunakan Icon folder, sehingga dapat mengecoh seseorang yang melihatnya.

Mengapa membahas virus ini?,...hmm...m....sebetulnya saya tidak terlalu tertarik membahas ini, tau nggak apa yang menyebabkan saya tertarik membahasnya?...pasti nggak tau kan @!img13@.....ini disebabkan beberapa hari lalu banyak kehebohan mengenai virus brontok dan sempat menginfeksi beberapa komputer teman2ku @!img7@.

Ok untuk mempersingkat waktu kita langsung aja

Setelah dilihat struktur file dari virus tersebut ternyata pembuatan virusnya menggunakan visual basic 6.0 ops....ternyata made in vb coy....nah ini yang membuat tambah menarik.

Virus ini terdiri dari 1 form da 1 Module, dengan nama

Form -> BrontokForm
Module -> API

Dengan detail berikut:

Begin VB.Form BrontokForm
Caption = "Brontok.A"
ForeColor = &H8000000F&
ScaleMode = 1
BeginProperty Font
Name = ""
Size = 195323.4944
Charset = 29
Weight = 774
EndProperty

Begin VB.Timer TmrBrontok
Enabled = 0 'False
Interval = 2000
Left = 2160
Top = 0
Width = 57352
Height = 1
End
End


Dengan nama Project: Brontok.vbp, yang disimpan pada directory:
F:\VPROJECT\REHAB\Re-1\BRONTOK.A

Jelas sekali bahwa virus ini dibuat oleh sorang program lokal, yang mempunyai skill Menengah Keatas.

Ada beberapa procedure & function yang digunakan dengan nama:

Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
TmrBrontok_Timer()
Subr_004()
CekKoneksiInternet()
ManipulasiExec()
Subr_007()
KeluarDong()
BronReg()
CopyAppData()
DownloadVir()
StartDong()
StartUp()
DecTeks()
MutMutex()
MutCr()
DownloadFile()
CekUpdate()
InfekNetwork()
Judul()
CekRemDisk()
BikinFile()
GetEmailFile()
CekValidMail()
GetTeks()
CekKar()
ListMail()
GetTargetMBhs()
GavMailer()
BrontokMail()
Subr_031()
DataEmail()
DownMIME()
FindFilesAPI()
ListFileGav()
InfekFile()
SmallAttack()
MinggirLoe()
GetHostByNameAlias()
StripNulls()
BikinKredit()

Dan beberapa fungsi Api yang digunakan anatara lain:

Fungsi Baca Tulis Ke Register:
Declare Function RegOpenKeyExA Lib "advapi32.dll" ()
Declare Function RegSetValueExA Lib "advapi32.dll" ()
Declare Function RegCloseKey Lib "advapi32.dll" ()
Declare Function RegCreateKeyExA Lib "advapi32.dll" ()

Declare Function Sleep Lib "kernel32" ()

Mendapatkan Spesial Folder:
Declare Function SHGetPathFromIDList Lib "shell32.dll" ()
Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ()

Membaca Isi Halaman Situs:
Declare Function InternetOpenA Lib "wininet.dll" ()
Declare Function InternetOpenUrlA Lib "wininet.dll" ()
Declare Function InternetReadFile Lib "wininet.dll" ()
Declare Function InternetCloseHandle Lib "wininet.dll" ()

Mendapatkan Caption Dari Sebuah Window:
Declare Function GetWindowTextA Lib "user32" ()
Declare Function GetWindowTextLengthA Lib "user32" ()

Dapatkan HWND Window aktif:
Declare Function GetForegroundWindow Lib "user32" ()

Shutdown, Reboot, LogOff Windows:
Declare Function ExitWindowsEx Lib "user32" ()
Declare Function GetCurrentProcess Lib "kernel32" ()
Declare Function OpenProcessToken Lib "advapi32" ()
Declare Function LookupPrivilegeValueA Lib "advapi32" ()
Declare Function AdjustTokenPrivileges Lib "advapi32" ()

Mendapatkan Jenis Media yang ada spt Removable Disk, CD-Rom dll:
Declare Function GetDriveTypeA Lib "kernel32" ()

Declare Function ShellExecuteA Lib "shell32.dll" ()
Declare Function RtlMoveMemory Lib "kernel32" ()

Winsock API:
Declare Function closesocket Lib "wsock32.dll" ()
Declare Function connect Lib "wsock32.dll" ()
Declare Function htons Lib "wsock32.dll" ()
Declare Function inet_addr Lib "wsock32.dll" ()
Declare Function recv Lib "wsock32.dll" ()
Declare Function send Lib "wsock32.dll" ()
Declare Function socket Lib "wsock32.dll" ()
Declare Function gethostbyname Lib "wsock32.dll" ()
Declare Function WSAStartup Lib "wsock32.dll" ()
Declare Function WSACleanup Lib "wsock32.dll" ()
Declare Function WSAAsyncSelect Lib "wsock32.dll" ()

Fungsi yang berhubungan dengan file:
Declare Function FindFirstFileA Lib "kernel32" ()
Declare Function FindNextFileA Lib "kernel32" ()
Declare Function GetFileAttributesA Lib "kernel32" ()
Declare Function FindClose Lib "kernel32" ()
dll...

Terlihat jelas pada fungsi-fungsi api yang digunakan bahwa penularan virus ini brontok menggunakan beberapa cara. seperti pengiriman lewat email, pencarian nama komputer yang terhubung kejaringan dengan menyalin dirinya pada folder yang di sharing dan menyalin dirinya pada window explorer yang aktif. kalo gak salah si pembuat virus mempunyai SMTP sendiri (wah ati-ati mas ntar ketangkep)

Jika dilihat kembali pada strukturnya ada beberapa kata yang di encrypt, kemungkinan berupa exploit code atau apalah namanya. hanya allah dan pembuat virus yang tau. @!img1@

Virus ini mempunyai fungsi ExitWindowsEx yang diimport dari file user32.dll, fungsi ini biasanya digunakan untuk mematikan windows.
kayaknya sipembuat virus membuat triger yang berisi perintah mematikan/merestart komputer.

Selain itu dalam struktur filenya terdapat kata-kata seperti ini:
FOLDER.HTT
RORO
.HTT
.DOC
.CSV
.EML
.CFM
.PHP
.WAB
.EML
.TXT
.HTML
.HTM
MY DATA SOURCES
MY EBOOKS
MY MUSIC
MY SHAPES
MY VIDEOS
MY DOCUMENT

Dan ada beberapa alamat situs yang diserang, apa DDOS ya...hik..hik..tau deh. Selain itu pembuat virus mencantumkan nama: --JowoBot#VM Community --

Selanjutnya coba lihat tiga fungsi api berikut:

Declare Function GetWindowTextA Lib "user32" ()
Declare Function GetWindowTextLengthA Lib "user32" ()
Declare Function GetForegroundWindow Lib "user32" ()

Sepertinya pembuat virus memanfaatkan windowexplorer untuk memperbanyak filenya ke folder yang lain. Dengan cara membaca Caption yang terdapat pada windows aktif yang berisi nama directory/path. Dengan menggunakan 2 fungsi diatas (GetWindowTextA & GetWindowTextLengthA), Sedangkan fungsi GetForegroundWindow digunakan untuk mendapatkan Handle Window (HWND) yang sedang aktif.

Jadi kesimpulannya virus ini tidak dapat menyalin dirinya kalo Caption pada windowExplorer bukan berupa Directory/Path. Sehinga si pembuat virus menonaktifkan setting pada Folder Options.

Kemudian yang lebih unik lagi virus ini membaca isi halaman situs yang terbuka pada sebuah InternetExplorer dengan menggunakan fungsi:

Declare Function InternetOpenA Lib "wininet.dll" ()
Declare Function InternetOpenUrlA Lib "wininet.dll" ()
Declare Function InternetReadFile Lib "wininet.dll" ()
Declare Function InternetCloseHandle Lib "wininet.dll" ()

Kalo saya tebak, sepertinya pembuat virus mencari alamat email pada halaman situs yang terbuka dan mengirimkan virus nya berdasarkan alamat email yang ditemukan pada halaman tersebut dengan kata kunci seperti mailto: ataupun @xxxx.com dll...

....Untuk membersihkannya silahkan baca selengkapnya di situs AntiVirus yang lain...he..he...maaf saya hanya membahas yang ini saja.

Tapi kalo pengen menonaktifkan virus ini secara cepat, coba masuk safemode kemudian rename file MSVBVM60.dll menjadi MSVBVM60.dl_
karena virus ini membutuhkan runtime vb. Nah kalo udah gak aktif baru kita bisa hapus beberapa registry entry dan file-file virus brontoknya.

Sayang sekali virus ini tidak menggunakan program compressor, sehingga memudahkan orang untuk mengenalinya.

Semoga bermanfaat,...@!img0@
Maaf kalo ada beberapa informasi yang salah, karena saya hanya mengambil dari pengalaman pribadi bukan bersumber dari informasi yang lain.

Membuat Picture Viewer Dengan VB

Jika anda sering mengganti-ganti walpaper, tentunya sangat merepotkan jika anda harus membuka Control Panel, lalu Display Seting dan bla bla....
Dibicarakan saja sudah capek. Dengan aplikasi ini anda cukup memilih file gambar seperti pada program Picture Viewer dan mengklik sebuah tombol, maka sekejap wallpaper anda telah berubah.


Adapun caranya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur propertiesnyaseperti berikut.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Picture Viewer
DriveListBox	Drive1	-	-
DirListBox	Dir1	-	-
FileListBox	File1	-	-
Image	Image1	Stretch	True
CommondButton	Command1	Caption	Set This Picture As Wallpaper

2. Susunlah letak kontrol-kontrol tersebut pada form sehingga menjadi kira-kira seperti gambar berikut.


3. Ketikkan listing berikut pada kode editor

Private Const SPIF_UPDATEINFILE=&H1
Private Const SPI_SETDESKWALLPAPER=20
Private Const SPIF_SENDWININICHANGE=&H2

Private Declare SystemParametersInfo

MP3 Sederhana Buatan Sendiri

Anda sering mendengar musik dengan komputer?Jika ya, pasti anda sudah tahu dan akrab dengan Winamp,Windows Media Player, dan Aplikasi Multimedia lainnya.
Kita akan mencoba untuk membuat sendiri aplikasi untuk memutar MP3. Apa yang terlintas dibenak anda? "Wah berapa lama membuatnya?pasti rumit sekali!"

Jangan salah, dengan Active X semuanya pasti mudah. Kita hanya perlu membuat program untuk memerintahkan Active X tersebut untuk membuka file dan memainkannya.
Sebelumnya, tambahkan Active X MMControl ke ToolBox terlebih dahulu,yaitu dengan cara klik kanan toolbox,pilih Componen,lalu pilih Microsoft Multimedia Control.
Adapun cara membuat program tersebut adalah sebagai berikut.

1. Tambahkan kontrol-kontrol dibawah ini ke Form dan atur Propertiesnya.

   Jenis Kontrol	Nama Kontrol	Properties	Nilai
   Form	Form1	Caption	MP3 Player
   Label	Label1	Caption	(kosongkan)
   -	-	BorderStyle	FixedSingle
   MMControl	MMControl1	-	-
   CommonDialog	CommonDialog	CancelError	True
   -	-	Filter	MP3 Audio (*.mp3)|*.mp3
   CommandButton	Command1	Caption	Open File

   
   
2. Susunlah letak kontrol-kontrol tersebut pada Form sehingga menjadi kira-kira sebagai berikut.
3. Kitikkan listing program berikut pada kode editor.
   Private Sub Command1_Click()
   On Error GoTo errhandler
   MMControl1.Command=”stop”
   CommonDialog1.ShowOpen
   MMControl.FileName=CommonDialog1.FileName
   MMControl1.Command=”open”
   Label1.Caption=CommonDialog1.FileTitle
   Errhandler:
   Exit Sub
   End Sub
   Private Sub Form_Unload(Cancel As Integer)
   Mmcontrol1.Command=”stop”
   End Sub
4. Simpan form dan project anda.
5. jalankan program tersebut dengan cara klok tombol Open File,pilih lagu yang anda inginkan,lalu klik tombol Play.maka musik yang anda pilih akan mengalun dari speaker anda.Ajiiiip...!
   

Mungkin anda merasa tidak puas dengan penampilan atau visualisasi dari program MP3 Player ini. Berkreasilah sesuka anda karena selera atau keinginan seseorang pasti berbeda-beda.