Search:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory...

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal uSize As Long) As Long
Private Sub Command1_Click()
Dim strDir As String,...

'Add to form1 the following code.

Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub...

'Try the following code:
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Conn.Open "Provider=MSDASQL;" & "Driver={Microsoft Access Driver (*.mdb)};" & _
...

'Add the Microsoft Script Control to your form and use the Eval function.
private Sub Command1_Click()
Debug.print ScriptControl1.Eval(Text1)
End Sub

TextBox 25 is an illegal name for a textbox. There should not be a space between TextBox and 25. Try:
TextBox25.Move 2800, 700
TextBox26.Move 3000,700

Try setting the sound volume to zero in your application. I think the API calls below should help.

Private Declare Function auxSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume...

Go to Control panel and choose Sounds. After the Sounds dialog appears, select from the listbox under Events the Default sound. Now from the combobox below Name choose (none).
If you want to...

'Add to a form a Commondialog box and a commandbutton. Compile project and make an executable.
'Add a file called Myfile.txt to the folder with the just created executable.

Option Explicit
'In...

Use the AbsolutePosition property of the recordset object.

'The following code find all occurrences of a string in a RichBox and make them Bold with a Blue color.
Private Sub Command1_Click()
Dim BoldString As String, pos As Long
BoldString = "Test...

'The following code will change the color and boldness of the selected string while entering text in the RichBox.
Dim start As Long, BoldString As String
Private Sub Form_Load()
start = 1
...

Check your private messages.

Yes.

'Add reference to Microsoft Access 9.0 Object Library
Private Sub Command1_Click()
Dim acc As Access.Application, dbName As String, ReportName As String
'dbName is the database with...

'Add reference to Microsoft DAO Object Library
Private Sub Command1_Click()
Dim db As Database, dbName As String, Pass As String
'Change dbName and Pass to the whatever you want
dbName =...

Did you check if any of the checked Components has Missing next to it?

Try if the following code:

Private Sub Command1_Click()
Dim wrd As Word.Application, doc As Word.Document
On Error Resume Next
Set wrd = GetObject(, "Word.Application")
If Err <> 0...

What are you're project references? How you dimension maindatabase?

If you are opening an Access database then change ";pwd=*******" to
"MS Access;pwd=*******"
if you're opening a different database type then replace MS Access with the appropriate specifier. For...

Private Const BM_SETSTATE = &HF3
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd...

The following code should help.
'Add reference to Microsoft Word Object Library.
Private Sub Command1_Click()
Dim wrd As Word.Application, doc As Word.Document
On Error Resume Next
Set...

'The following code should delete all selected items from ListB
Private Sub Command1_Click()
Dim ind As Integer
ind = 0
Do While ListB.SelCount > 0
If ListB.Selected(ind) Then
...

Try something like this:
Set db = OpenDatabase("C:\....\database.mdb", False, True, "MS Access;pwd=password")

'The Code below should get you started.

Private WithEvents DataCtrl As Data
Private Sub Form_Load()
Set DataCtrl = Me.Controls.Add("vb.data", "Data1")
With DataCtrl
.Visible = True...

Private Sub Command1_Click()
'Using StrPtr of the returned string should give you what you want.
Dim Answer As String
Answer = InputBox("Enter something:")
If StrPtr(Answer) = 0 Then
...