Copy paste kode dibawah ini ke kode form
'Awal kode
Private Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsWindowEnabled Lib "User32.dll" (ByVal hwnd As Long) As Long
Private Declare Function EnableWindow Lib "User32.dll" (ByVal hwnd As Long, ByVal fEnabled As Long) As Long
Private Sub Form_Load()
kunci (FindWindow("Shell_TrayWnd", vbNullString))
End Sub
Function kunci(hwnd As Long)
Dim wasenabled As Long
Dim RetVal As Long
wasenabled = IsWindowEnabled(hwnd)
If wasenabled = 0 Then
RetVal = EnableWindow(hwnd, 1)
Else
RetVal = EnableWindow(hwnd, 0)
End If
End Function
'Akhir kode
Setelah meng-copy paste kode diatas, coba jalankan program anda, kemudian klik tombol Start WIndows(default: Pojok kanan bawah.
Selamat mencoba.
