Menampilkan Start Menu Melalui Form VB6

   Dengan tip sederhana berikut ini, anda akan dapat menampilkan start menu melalui form (tanpa menekan tombol start seperti yang biasa anda lakukan). Sehingga dapat mempermudah anda untuk menambahkan program tambahan pada Job anda dan lain sebagainya. Untuk itu, yang perlu anda lakukan adalah:

• Tambahkan sebuah CommandButton pada form anda.
• Buka jendela Code, dan masukkan Source Code di bawah ini kedalam jendela code yang anda buka tadi.

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const VK_CONTROL = &H11

Const KEYEVENTF_KEYUP = &H2

Const VK_ESCAPE = &H1B

Private Sub Command1_Click()

Call keybd_event(VK_CONTROL, 0, 0, 0)

Call keybd_event(VK_ESCAPE, 0, 0, 0)

Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)

Call keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0)

End Sub

• Dalam contoh di atas, CommandButtonnya saya beri nama standard. Silahkan anda rubah sesuai keinginan anda.
• Lalu jalankan Program anda, dan lihat start menu anda terbuka setelah anda klik CommandButton pada form anda tadi.

Tampilan Setelah Program Anda jalankan

Selamat Mencoba