Code VB 6 Cara Membuat Toolbar untuk mempercantik Program Anda

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
FrmEntriAnggota.Show
Case 2
Frmpenjualan.Show
Case 3
FrmEntriBarang.Show
Case 4
Frmpembayaran.Show
Case 5
Penjualan.Show
Case 6
Frmbackup.Show
Case 7
Frmexport.Show
Case 8
Unload Me
End Select
End Sub