Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _ (ByVal a As Long, ByVal a1 As Long, ByVal a2 As String, ByVal a3 As Long) As Long
Private Sub Command1_Click()
SystemParametersInfo 20, 0, "c:\as.bmp", True
End Sub |
|