Perform Show Disktop operation from ur VB from This demo is created by Nirmal singh of Village Bala
Perform Show Disktop operation from ur VB from This demo is created by Nirmal singh of Village Balanwali Distt. Bathinda (Punjab)
API Declarations
'if u like this please email me at [email protected]
Dim fsys As New FileSystemObject
Dim W As WshShell
Rate Perform Show Disktop operation from ur VB from This demo is created by Nirmal singh of Village Bala
(1(1 Vote))
Private Sub Command1_Click()
On Error Resume Next
Dim s As String
s = "C:\nirmal.scf"
fsys.DeleteFile s, True
End
End Sub
Private Sub Command2_Click()
Set W = CreateObject("WScript.Shell")
W.Run "C:\nirmal.scf"
End Sub
Private Sub Form_Load()
On Error Resume Next
Me.Show
DoEvents
Dim texts As TextStream
Set texts = fsys.CreateTextFile("C:\nirmal.scf")
texts.WriteLine "[Shell]"
texts.WriteLine "Command = 2"
texts.WriteLine "IconFile=explorer.exe,3"
texts.WriteLine "[Taskbar]"
texts.WriteLine "Command=ToggleDesktop"
End Sub
Perform Show Disktop operation from ur VB from This demo is created by Nirmal singh of Village Bala Comments
No comments yet — be the first to post one!
Post a Comment