This is the tutorial:

1. Bring your Visual Basic to design mode first, open your MDI form so that you can edit the status bar properties. To open status bar property pages, right click the status bar and then click Properties menu.

2. In Property Pages, click Panels tab, insert new panel by click Insert Panel button, set Minimum Width to at least 2500 then click OK button. Don’t forget to watch the index of panel.

3. Then write this script in your MDI main form or you can also write it on module.

Private Sub versi_server()
Dim rs_versi As New ADODB.Recordset
Dim str_versi As String
'/string sql
On Error GoTo versi_server_Error

str_versi = "SELECT VERSION() AS versi"
'/open recordset
With rs_versi
    .CursorLocation = adUseClient
    .Open str_versi, myconn, adOpenStatic, adLockReadOnly
StatusBar1.Panels(8).Text = "MySQL " & .Fields("versi")
StatusBar1.Panels(10).Text = "Connected"
'Call set_lampu_connect(1)
End With
Set rs_versi = Nothing
'-----------------------------------------------------------------
On Error GoTo 0
Exit Sub

versi_server_Error:
    MsgBox "Got error ! " & vbCrLf & "Error number : " & Err.Number & vbCrLf & "Deskripsi : " & Err.Description & vbCrLf & "in procedure versi_server in [Form]->frmutama"
End Sub

4. After you write it (you can copy paste my script above), call it (versi_server procedure) on Form_Load procedure to load it every time your MDI main is loaded.

(article no:0032)

OK, follow this trick:
1. Open Notepad (or your favorite text editor) to type the script via Start – Run menu and type notepad in textbox then click OK button or press Enter
key.

2. And type the script like this:

Dim otakatik
ManageRegedit()
Sub ManageRegedit()
Set otakatik=WScript.CreateObject("wscript.shell")
describe="Type 0 or 1 : " & VbCrLf &_
             "[0] -> Enable Regedit." & VbCrLf &_
             "[1] -> Disable Regedit."

question=InputBox(describe, "Edit Regedit",0)
otakatik.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion" &_
                        "\Policies\System\DisableRegistryTools",question,"REG_DWORD"

If question=1 Then
   MsgBox "Registry is disabled.",VbInformation, "Disabled"
Else
   If question=0 Then
      Msgbox "Registry is enabled.",VbInformation, "Enabled"
      otakatik.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion" &_
                                "\Policies\System\DisableRegistryTools"
   Else
      Msgbox "Input 0 or 1 only !",VbInformation, "Wrong Input"
      ManageRegedit()
   End If
End If
End Sub

You can copy and paste to your notepad.

3. Save it, click File – Save As.

4. Change Save As Type to All Files and give it the name regedit.vbs (or whatever you want but the extension has to vbs).

5. Then make sure that you have the right file name format, you can see it on Notepad title bar.

6. Open your folder that containing regedit.vbs file.

7. Double click that file and Edit Regedit window will opened.

8. If you fill the textbox with value 0, Registry Editor will enable to open.

9. But if you fill it with value 1,

Registry Editor will disable to open.

10. Now, try to open your Registry Editor and you will get a notification that Registry Editor is disabled.

version="1.0.0.0"
processorArchitecture="X86"
name="WindowsXP"
type="win32"
/>
Your application description here.



type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>

at your text editor such as Notepad.

2. Save that script with name: application.exe.manifest (in this case I save it as vb.exe.manifest) and save in the same folder that application installed (in my case I save it at C:\Program Files\Microsoft Visual Studio\VB98 folder).

3. And try it with your Visual Basic 6 now, and you can apply this tricks to the other application (but that’s not always work).