Source Code Menampilkan Screensaver di VB 6

                   Untuk menampilkan screensaver ketika form di load sangat mudah, caranya:
         1. Buat 1 project baru
         2. Buat 1 form.
Copy paste kode dibawah ini:

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

          Const SC_SCREENSAVE = &HF140&
          Const MON_OFF = 2&
          Const WM_SYSCOMMAND = &H112


Private Sub Form_Load()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, Monochrome

End Sub

Posted in: vb