Back To Main Page

Name	Code
Stay On Top	Module1: Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) Form Load: Call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 27)
Center A Form	Form Load: Form1.Move(Screen.width-form1.width)\2,(screen.height-form1.height)\2
Play a Wav File	Module: Declare Function sndplaysound Lib"mmsystem.dll" (ByVal wavfile As Any, ByVal wflags As Integer) As Integer Global counter As Integer Form Load: i% = sndplaysound("name_of_file.wav", 1)
Hide and Show Task Bar	Module: Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer Const SW_HIDE = 0 Const SW_SHOW = 5 Command1: Dim FindBar As Integer Dim HideBar As Integer FindBar = FindWindow("Shell_TrayWnd", 0&) HideBar = ShowWindow(FindBar, SW_HIDE) Command2: Dim FindBar As Integer Dim ShowBar As Integer FindBar = FindWindow("Shell_TrayWnd", 0&) ShowBar = ShowWindow(FindBar, SW_SHOW)
Run other programs thru yours	Command Button: RetVal = Shell("C:\WINDOWS\NAME_OF_FILE.EXE", 1)
Date	Form Load: If Label1 <> Cstr ( Date ) Then Label1.Caption = Date End If
Time	Timer: If Label1 <> Cstr(Time) Then Label1.Caption = Time End If Set timers interval to 500
Password Box	Command Button: If Text1.Text = "Password" Then Msgbox "Password Accepted", ,"Accepted" Else MsgBox "Password not Axcepted", 16 , "Not Accepted" End If
NON Case Password Box	Command Button: If LCase$(Text1) = "password" Then MsgBox "Password Accepted", 48, "Accepted!" Else MsgBox "Password Not Accepted", 16, "Not Accepted!" End If
More then 1 password	Command Button: If Text1.Text = "Password#1" Then msgbox "You typed Password#1" ElseIf Text1.Text = "Password#2" Then msgbox "You typed Password#2" Else MsgBox "The Password You Entered Was Incorrect",16 , "InValid" End If

Back To Main Page