Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Disable the X for Closing a Userform

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Const SC_CLOSE As Long = &HF060 Private Sub Main()     Dim hWndForm As Long     Dim hMenu As Long          hWndForm = FindWindow("ThunderDFrame", "title")  'XL2000     hMenu = GetSystemMenu(hWndForm, 0)     DeleteMenu hMenu, SC_CLOSE, 0& End Sub Playing Sounds Public Declare Function PlayWavSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal LpszSoundName As String, ByVal uFlags As Long) As Long Public Sub PlaySound()     Dim SoundName As String          SoundName = "C:\s.wav"     PlayWavSound SoundName, 0 End Sub