Menjalankan ScreenSaver

Berikut ini adalah kode yang digunakan untuk menjalankan / memunculkan ScreenSaver.

[ VB 6.0 ]
Di bagian '(Declaratios)' dari Form ketikkan :

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

Untuk menggunakannya ketikkan perintah kode :

SendMessage Me.hwnd, 274, 61760, 0

[ VB .NET ]
Di bagian '(Declaratios)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Untuk menggunakannya ketikkan perintah kode :

SendMessage(Me.Handle.ToInt32, 274, 61760, 0)