Click F7 to go to the code view and add the folowing code:

' Form design
' - - - - - -
' Button1 – Button control
' Button2 – Button control
' - - - - - -
' Form code

Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Long, ByVal uReturnLength As _
Long, ByVal hwndCallback As Long) As Long

Dim vDrive As String
Dim vAlias As String

Private Sub Button1_Click() Handles Button1.Click
' Open
vDrive = "f:/"
vAlias = "vv" & vDrive
Call mciSendString("Open " & vDrive & ": Alias " & vAlias & _
" Type CDAudio", 0, 0, 0)
Call mciSendString("Set " & vAlias & " Door Open", 0, 0, 0)
End Sub

Private Sub Button2_Click() Handles Button2.Click
' Close
vDrive = "f:/"
vAlias = "vv" & vDrive
Call mciSendString("Open " & vDrive & ": Alias " & vAlias & _
" Type CDAudio", 0, 0, 0)
Call mciSendString("Set " & vAlias & " Door Closed", 0, 0, 0)
End Sub
End Class

Click F5 to Run the application.

Download sample

In the Solution Explorer right-click on ExitWindows –> Add –> Module… Leave the default name Module1.vb as is and click Add.

Paste the following code in Module1:

Public Declare Function ExitWindows Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Now, go to Form1.vb and add three buttons from the toolbox. Set the following properties for buttons:

Click F7 and paste the following code:

Public Class Form1
    Dim s As Long

    Private Sub btnLogOff_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnLogOff.Click
        ' Logoff current user
        s = ExitWindows(EWX_LOGOFF, 0&)
    End Sub

    Private Sub btnReboot_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnReboot.Click
        ' Reboot computer
        s = ExitWindows(EWX_REBOOT, 0&)
    End Sub

    Private Sub btnShutdown_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnShutdown.Click
        ' Shutdown computer
        s = ExitWindows(EWX_SHUTDOWN, 0&)
    End Sub
End Class

That’s it . Download the solution from the link below.

• Scriptomatic 2.0
• Do-It-Yourself Script Center Kit
• WMI Code Creator
• ADSI Scriptomatic
• Tweakomatic
• Log Parser 2.2
• Portable Script Center
• HTA Helpomatic
• Scriptomatic 1.0

Script center
Learn to Script
The Script Center Script Repository
The Windows PowerShell Toolbox

Documentation

• Sesame Script
Every Sesame Script article through June 2007 in one downloadable Help file.

• Hey, Scripting Guy!
Almost 500 Hey, Scripting Guy! articles, fully searchable.

• Windows PowerShell Help File
Fully-searchable help for Windows PowerShell.

• VBScript Quick Reference
Short and to-the-point cheat sheet for working with VBScript.

• Windows PowerShell Quick Reference
The basics of Windows PowerShell at your fingertips.

1)    Create a new project, select Windows Forms Control Library and name it MiniCalc

2)    You will see that the new UserControl1.vb is added to your project. Right-click on the UserControl1.vb and select Rename from the menu. Name it MiniCalc.vb

3)    Go to the Toolbox and add 1 groupbox, 2 textboxes, 4 buttons and 1 label. Align them on the control as on the following image:

Set the following properties:

4)    Right-click on the form and select View Code. You will see the following lines of code in the editor:

Public Class miniCalc

End Class

5)    Edit the code to make it as follows:

Public Class miniCalc
Private Sub btnPlus_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnPlus.Click
lblResult.Text = CInt(txtValue1.Text) + CInt(txtValue2.Text)
End Sub

Private Sub btnMinus_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMinus.Click
lblResult.Text = CInt(txtValue1.Text) - CInt(txtValue2.Text)
End Sub

Private Sub btnMultiply_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMultiply.Click
lblResult.Text = CInt(txtValue1.Text) * CInt(txtValue2.Text)
End Sub

Private Sub btnDivide_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnDivide.Click
lblResult.Text = CInt(txtValue1.Text) / CInt(txtValue2.Text)
End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles GroupBox1.Enter
lblResult.Text = ""
End Sub
End Class

6)    In the solution explorer right-click on MiniCalc and select Properties:

7)    Make sure that the following parameters are set:

8)    Now go to Build→ Build MiniCalc

9)    Now, go to the Bin folder in your project folder. In my case, I saved my MiniCalc project under C:\Projects\:

10)    Copy the MiniCalc.dll to any other directory where you want to store your final DLLs. It’s always a good idea to keep your DLL project in case if you will need to modify it in the future. In my case I will copy MiniCalc.dll under C:\My DLLs\ folder.

11)    Close MiniCalc project.

12)    Create a new Windows Forms Application project and name it “Mini Calculator”

13)    Go to Project and click on Add Reference…

14)    In the Add Reference window click on the Browse tab, locate MiniCalc.dll file and click OK button:

15)    In the Toolbox pane right-click somewhere in the empty space and select Add Tab:

16)    Name it My Controls and click Enter

17)    Right-click under My Controls and select Choose Items… from the context menus:

18)    In the .NET Framework Components tab click Browse.. and locate MiniCalc.dll file.

19)    miniCalc.dll will be added to your components collection. Click OK button to close the dialog window.

20)    MiniCalc control is now added to My Controls.

21)    Drag it to your form:

22)    Click F5 to start debugging:

In this tutorial we have learned how to create DLL files and use them across other applications.

Download the sample project here.