|***************************************************************************************|
|*				Программа-браузер(browser)			       *|
|***************************************************************************************|


Private Sub Command1_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command3_Click()
WebBrowser1.GoHome
End Sub

Private Sub Command4_Click()
WebBrowser1.Refresh
End Sub

Private Sub Command5_Click()
MsgBox "Александр Полосухин(rick_hard)"
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
WebBrowser1.Navigate Text1.Text
End If
End Sub


|***************************************************************************************|
|*			Проигрыватель wav файлов(wav player)			       *|			
|***************************************************************************************|

Private Sub Command1_Click()
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

Private Sub Command2_Click()
MMControl1.Command = "stop"
MMControl1.Command = "close"
End Sub

Private Sub Command3_Click()
MsgBox "Александр Полосухин(rick_hard)"
End Sub

Private Sub Command4_Click()
MsgBox "Заходите еще;)"
End
End Sub

Private Sub Form_Load()

End Sub


|***************************************************************************************|
|*		Исчезает "Пуск" при запуске программы(поздняя версия)		       *|
|***************************************************************************************|

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim handle
Dim parent
Private Sub Form_Load()
Picture1.Visible = False
handle = FindWindow("Shell_TrayWnd", "")
parent = FindWindowEx(handle, 0, "Button", vbNullString)
ShowWindow parent, 0
End Sub


|***************************************************************************************|
|*		Лазерная прорисовка рисунка(laser)        			       *|
|***************************************************************************************|


Private Declare Function GetTickCount Lib "Kernel32" () As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()
Dim pCol As Long
Dim pW As Long
Dim pH As Long
Command1.Enabled = False
Picture2.Cls
pW = Picture1.ScaleWidth
pH = Picture1.ScaleHeight
For X = 0 To pW - 1
For Y = 0 To pH - 1
pCol = GetPixel(Picture1.hDC, X, Y)
Picture2.Line (pW, pH / 2)-(X, Y), pCol
SetPixel Picture2.hDC, X, Y, pCol
Next Y
Picture2.Refresh
Next X
Command1.Enabled = True
End Sub

Private Sub Picture2_Click()

End Sub


|***************************************************************************************|
|*		Программа-подлянка(курсор мыши носится по экрану)		       *|
|***************************************************************************************|


Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Timer1_Timer()
Dim ret As Long
ret = SetCursorPos(Int(Rnd * Screen.Width / 15), Int(Rnd * Screen.Height / 15))
End Sub