Welcome to All !! Visual Basic Tutorial, a place where you are going to learn Visual Basic ( also known as VB6 ). Visual Basic is very simple and interactive type of programming language, yet, is a great tool to develop programs. For newbees to the programing world, learning Visual Basic will be great start up. Happy Programming !!

 

Msgbox "Hello World", vbinformation

 

1. Create 2 TextBox and place it in the middle of the form.
2. Change the first TextBox Name Property to txtinput and the another one as txtoutput.
3. Next, clear the both TextBox Text Property.
4. Create 2 Label.
5. Change one of the Label Name Property to lblinput and Label Caption Property to Input.
6. Place it before TextBox ( txtinput ).
7. Change the other one Label Name Property to lbloutput and Label Caption Property to Output.
8. Place it before Textbox ( txtoutput ).
9. Create 2 Command Button and place it below of the TextBox.
10. Change one of the Command Button Name Property to cmddisplay
11. Change the another Command Button Name Property to cmdclear.
12. Change the Command Button ( cmddisplay ) Caption Property to Display Message.
13. Change the Command Button ( cmdclear ) Caption Property to Clear.
14. Double-click the Command Button ( cmddisplay ) and type this line of code :

 

txtoutput.Text = txtinput.Text

 

15. Double-click the Command Button ( cmdclear ) and type this line of code :

 

txtinput.Text = Empty
txtoutput.Text = Empty

 

1. Create a Label and place it in the middle of the form.
2. Change the Label Name Property to lblOutput and clear the Label Caption Property.
3. Create a TextBox and place it below of the Label.
4. Change the TextBox Name Property to txtinput and clear the TextBox Text Property.
5. Create 2 Label.
6. Change one of the Label Name Property to lbloutput and Label Caption Property to Output.
7. Place it before Label ( lblOutput ).
8. Change the other one Label Name Property to lblinput and Label Caption Property to Input.
9. Place it before Textbox ( txtinput ).
10. Create 2 Command Button and place it below of the TextBox.
11. Change one of the Command Button Name Property to cmddisplay
12. Change the another Command Button Name Property to cmdclear.
13. Change the Command Button ( cmddisplay ) Caption Property to Display Message.
14. Change the Command Button ( cmdclear ) Caption Property to Clear.
15. Double-click the Command Button ( cmddisplay ) and type this line of code :

 

lblOutput.Caption = txtInput.Text

 

16. Double-click the Command Button ( cmdclear ) and type this line of code :

 

txtInput.Text = Empty
lblOutput.Caption = Empty

 

1. Create 3 CheckBox and place it in the middle of the form.
2. Change each of the CheckBox Name Property to chkBold, chkItalic, chkUnderline.
3. Change the CheckBox ( chkbold ) Caption Property to Bold
4. Change the CheckBox ( chkitalic ) Caption Property to Italic.
5. Change the CheckBox ( chkunderline ) Caption Property to Underline.
6. Create a TextBox and place it below of the 3 CheckBox.
7. Change the TextBox Name Property to txtoutput and clear the TextBox Text Property.
8. Create 2 Label.
9. Change one of the Label Name Property to lblformat and Label Caption Property to Format.
10. Place it before CheckBox.
11. Change the other one Label Name Property to lbloutput and Label Caption Property to Output.
12. Place it before Textbox ( txtoutput ).
13. Create 2 Command Button and place it below of the TextBox.
14. Change one of the Command Button Name Property to cmddisplay
15. Change the another Command Button Name Property to cmdclear.
16. Change the Command Button ( cmddisplay ) Caption Property to Display Message.
17. Change the Command Button ( cmdclear ) Caption Property to Clear.
18. Double-click the Command Button ( cmddisplay ) and type this line of code :

 

If chkbold.Value = 1 Then


txtOutput.FontBold = True


Else


txtOutput.FontBold = False


End If

 

If chkitalic.Value = 1 Then


txtOutput.FontItalic = True


Else


txtOutput.FontItalic = False


End If

 

If chkunderline.Value = 1 Then


txtOutput.FontUnderline = True


Else


txtOutput.FontUnderline = False


End If

 

19. Double-click the Command Button ( cmdclear ) and type this line of code :

     

    chkbold.Value = 0
    chkitalic.Value = 0
    chkunderline.Value = 0
    txtOutput.Text = Empty

     

1. Create 2 OptionButton and place it in the middle of the form.
2. Change each of the OptionButton Name Property to opttimes and optarial.
3. Change the OptionButton ( opttimes ) Caption Property to Times New Roman
4. Change the OptionButton ( optarial ) Caption Property to Arial.
5. Create a TextBox and place it below of the 2 OptionButton.
6. Change the TextBox Name Property to txtoutput and clear the TextBox Text Property.
7. Create 2 Label.
8. Change one of the Label Name Property to lblfont and Label Caption Property to Font.
9. Place it before OptionButton.
10. Change the other one Label Name Property to lbloutput and Label Caption Property to Output.
11. Place it before Textbox ( txtoutput ).
12. Create a Command Button and place it below of the TextBox.
13. Change the another Command Button Name Property to cmdclear.
14. Change the Command Button ( cmdclear ) Caption Property to Clear.
15. Double-click the OptionButton ( opttimes ) and type this line of code :

 

txtOutput.Font = "Times New Roman"

 

16. Double-click the OptionButton ( optarial ) and type this line of code :

 

txtOutput.Font = "Arial"

 

17. Double-click the Command Button ( cmdclear ) and type this line of code :

 

opttimes.Value = 0
optarial.Value = 0
txtOutput.Text = Empty

 

1. Create a ComboBox and place it in the middle of the form.
2. Change the ComboBox Name Property to cmbitem.
3. Change the ComboBox Text Property to Select Item.
4. Create a TextBox and place it top of the ComboBox ( cmbitem ).
5. Change the TextBox Name Property to txtinput and clear the TextBox Text Property.
6. Create 2 Label.
7. Change one of the Label Name Property to lblinput and Label Caption Property to Input.
8. Place it before Textbox ( txtinput ).
9. Change the other one Label Name Property to lblitem and Label Caption Property to Item.
10. Place it before ComboBox ( cmbitem ).
11. Create 2 Command Button.
12. Change each of the Command Button Name Property to cmdadd, cmdremv.
13. Place the Command Button ( cmdadd ) below of the TextBox.
14. Place the Command Button ( cmdremv ) below of the ComboBox.
15. Double-click the Command Button ( cmdadd ) and type this line of code :

 

cmbItem.AddItem (txtInput.Text)
MsgBox "Item Added Into ComboBox : " & txtInput.Text, vbInformation

txtInput.Text = Empty

 

16. Double-click the Command Button ( cmdremv ) and type this line of code :

     

    If cmbItem.ListIndex = -1 Then

    
    MsgBox "Please Select Item To Remove", vbInformation

    
    Else

    
    cmbItem.RemoveItem (cmbItem.ListIndex)
    cmbItem.Text = "Select Item"

    
    End If

     

     

    

1. Create a ListBox and place it in the middle of the form.
2. Change the ListBox Name Property to lstitem.
3. Create a TextBox and place it top of the ListBox.
4. Change the TextBox Name Property to txtinput and clear the TextBox Text Property.
5. Create 2 Label.
6. Change one of the Label Name Property to lblinput and Label Caption Property to Input.
7. Place it before Textbox ( txtinput ).
8. Change the other one Label Name Property to lblitem and Label Caption Property to Item.
9. Place it before ComboBox ( lstitem ).
10. Create 2 Command Button.
11. Change each of the Command Button Name Property to cmdadd, cmdremv.
12. Place the Command Button ( cmdadd ) below of the TextBox.
13. Place the Command Button ( cmdremv ) below of the ListBox.
14. Double-click the Command Button ( cmdadd ) and type this line of code :

 

lstItem.AddItem (txtInput.Text)
MsgBox "Item Added Into ComboBox : " & txtInput.Text, vbInformation
txtInput.Text = Empty

 

15. Double-click the Command Button ( cmdremv ) and type this line of code :

     

    If lstItem.ListIndex = -1 Then

    
    MsgBox "Please Select Item To Remove", vbInformation

    
    Else

    
    lstItem.RemoveItem (lstItem.ListIndex)

    
    End If

     

1. Create 2 Frame and place it in the middle of the from.
2. Change the Frame Name Properties to frmCheck and frmOption.
3. Change the Frame Caption ( frmOption ) to Font.
4. Create 2 OptionButton inside frmOption.
5. Change each of the OptionButton Name Property to opttimes and optarial.
6. Change the OptionButton ( opttimes ) Caption Property to Times New Roman
7. Change the OptionButton ( optarial ) Caption Property to Arial.
8. Change the Frame Caption ( frmCheck ) to Format.
9. Create 3 CheckBox inside frmCheck.
10. Change each of the CheckBox Name Property to chkBold, chkItalic, chkUnderline.
11. Change the CheckBox ( chkbold ) Caption Property to Bold
12. Change the CheckBox ( chkitalic ) Caption Property to Italic.
13. Change the CheckBox ( chkunderline ) Caption Property to Underline.
14. Change the TextBox Name Property to txtoutput and clear the TextBox Text Property.
15. Create a Label and place it before Textbox ( txtoutput ).
16. Change one of the Label Name Property to lblOutput and Label Caption Property to Output.
17. Create 2 Command Button and place it below of the TextBox.
18. Change one of the Command Button Name Property to cmddisplay
19. Change the another Command Button Name Property to cmdclear.
20. Change the Command Button ( cmddisplay ) Caption Property to Display Message.
21. Change the Command Button ( cmdclear ) Caption Property to Clear.
22. Double-click the OptionButton ( opttimes ) and type this line of code :

 

txtOutput.Font = "Times New Roman"

 

23. Double-click the OptionButton ( optarial ) and type this line of code :

 

txtOutput.Font = "Arial"

 

24. Double-click the Command Button ( cmddisplay ) and type this line of code :

 

If chkbold.Value = 1 Then


txtOutput.FontBold = True


Else


txtOutput.FontBold = False


End If

 

If chkitalic.Value = 1 Then


txtOutput.FontItalic = True


Else


txtOutput.FontItalic = False


End If

 

If chkunderline.Value = 1 Then


txtOutput.FontUnderline = True


Else


txtOutput.FontUnderline = False


End If

 

25. Double-click the Command Button ( cmdclear ) and type this line of code :

 

optTimes.Value = 0
optarial.Value = 0
chkBold.Value = 0
chkItalic.Value = 0
chkUnderline.Value = 0
txtOutput.Text = Empty

 

1. Create 2 Image and place it in the middle of Form.
2. Change the Image Name Property to imgTrue and imgFalse.
3. Go to Image ( imgFalse ) Picture Property and click the Button in the Picture Property to select your image.
4. Go to Image ( imgTrue ) Picture Property and click the Button in the Picture Property to select the same image.
5. Change the Image ( imgTrue ) Strecth Property to True and resize the Image according to your preference.
6. Create 2 Label.
7. Change one of the Label Name Property to lblFalse and Label Caption Property to Strecth = False.
8. Place it top of the Image ( imgFalse ).
9. Change the other one Label Name Property to lblTrue and Label Caption Property to Strecth = True.
10. Place it top of the Image ( imgTrue ).

    

1. Create 6 Shape and place in the middle of the Form.
2. Change the Shape Name Property to shpRectangle, shpSquare, shpOval, shpCircle, shpRRectangle , shpRSquare.
3. By default, Square Shape will generated when you create a Shape.
4. Change the Shape Shape Property to 0 - Rectangle.
5. Change the Shape Shape Property to 1 - Square.
6. Change the Shape Shape Property to 2 - Oval.
7. Change the Shape Shape Property to 3 - Circle.
8. Change the Shape Shape Property to 4 - Rounded Rectangle.
9. Change the Shape Shape Property to 5 - Rounded Square.
10. Change the Shape Fill Style to 0 - Solid and change the Shape Fill Color according to your preference for all the Shape.
11. Change the Shape Border Style to 0 - Solid and change the Shape Border Color according to your preference for all the Shape.
12. Create 6 Label.
13. Change the Label Name Property to lblRectangle, lblSquare, lblOval, lblCircle, lblRRectangle , lblRSquare.
14. Change the Label ( lblRectangle ) Caption Property to Rectangle and place it above the Rectangle Shape.
15. Change the Label ( lblSquare ) Caption Property to Square and place it above the Square Shape.
16. Change the Label ( lblOval ) Caption Property to Oval and place it above the Oval Shape.
17. Change the Label ( lblCircle ) Caption Property to Circle and place it above the Circle Shape.
18. Change the Label ( lblRRectangle ) Caption Property to Rounded Rectangle and place it above the Rounded Rectangle Shape.
19. Change the Label ( lblRSquare ) Caption Property to Rounded Square and place it above the Rounded Square Shape.

1. Create a Timer and place it at the top-left corner of the Form.
2. Change the Timer Name Property to tmrMove.
3. Change the Timer Interval Property to 500.
4. Create a Shape and place it in the middle of Form.
5. Change the Name Property to shpMove.
6. Change the Shape Shape Property to to 3 - Circle.
7. Change the Fill Style to 0 - Solid and change the Fill Color according to your preference.
8. Change the Shape Left Property to 120.
9. Double-click the Timer ( tmrMove ) and type this line of code :

shpMove.Left = shpMove.Left + 25

10. Change the Timer ( tmrMove ) to 1000 and then 100 to see different results. Timer can be use for various reason, from Splash Screen up to a simple animation.

1. Create a DriveListbox and place it in the middle of the Form.
2. Change the DriveListbox Name Property to drvMyImage.
3. Create a DirListBox and place it in the middle of the Form below the DriveListbox.
4. Change the DirListBox Name Property to dirMyImage.
5. Create a FileListBox and place it in the middle of the Form and next to the DirListBox.
6. Change the FileListBox Name Property to fileMyImage.
7. Change FileListBox ( fileMyImage ) Pattern Property to *.jpg.
8. Create a Image and place it next to the DriveListbox, DirListBox and FileListBox.
9. Change the Image Name Property to imgMyImage.
10. Double-click the DriveListbox ( drvMyImage ) and type this line of code :

 

dirMyImage.Path = drvMyImage.Drive

 

11. Double-click the DirListBox ( dirMyImage ) and type this line of code :

 

fileMyImage.Path = dirMyImage.Path

 

12. Double-click the DirListBox ( fileMyImage ) and type this line of code :

 

imgMyImage.Picture = LoadPicture(fileMyImage.Path + "\" + fileMyImage.FileName)

imgMyImage.Height = 2535
imgMyImage.Width = 2175

 

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Windows Common Controls 6.0 (SP6) and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create a ImageList and place it in the middle of the Form.
4. Change the ImageList Name Property to imgMyList.
5. Select ImageList, right-click and go to Properties.
6. Select General Tab and select 16 X 16 ( The Best View Size ).



7. Select Images Tab and press Insert Picture.

1. The Select Picture Dialog Box appears and select the folder where your icons located, if you don’t have any icon, download here : ICON.zip.
2. Select the icon you want to use OR simply press ctrl+A to select all and press Open and it will load the entire icon into the Images tray.



3. Notice that, when you select any of the icon in the tray's the Index change as well.
4. The usage of the Index is a key to apply and display the icon on the ToolBar, TreeView and ListView.

Note : You Can Use The Same ImageList For More Then One Control At The Same Time

Remider : You Must Create ImageList Before Following Below Steps.

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Tabbed Dialog Control 6.0 and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create a TreeView and place it in the middle of the Form.
4. Change the TreeView Name Property to tvwHelp.
5. Right-Click on the TreeView ( tvwHelp ) and select Properties.



6. Change LineStyle Property to 1-tvwRootLines and change LabelEdit Property to 1-tvwManual, press Apply.
7. Change ImageList Property to < Your ImageList Name >.
8. Create a Label and change Name Property to lblContext.
9. Clear the Label ( lblContext ) Caption Property and place it next to the TreeView ( tvwHelp ).
10. Create 2 Label and change Name Property to lblHelp and lblCtxt.
11. Change the Label ( lblHelp ) Caption Property to Help and place it above TreeView ( tvwHelp ).
12. Change the Label ( lblCtxt ) Caption Property to Context and place it above Label ( lblContext ).
13. Double-Click on your Form and type this code :

 

'First Node

'Parent

'The IND1 is the key to access the Node, the Name of the Node, the ImgeList Icon Index
tvwHelp.Nodes.Add , , "IND1", " Customer Record ", 1

'Child
tvwHelp.Nodes.Add "IND1", tvwChild, "IND1.2", "How To Add New Record ?", 2
tvwHelp.Nodes.Add "IND1", tvwChild, "IND1.3", "How To Search Record ?", 2
tvwHelp.Nodes.Add "IND1", tvwChild, "IND1.4", "How To Delete Record ?", 2

 

'Second Node

'Parent

'The IND2 is the key to access the Node, the Name of the Node, the ImgeList Icon Index
tvwHelp.Nodes.Add , , "IND2", " Inventory Record ", 1

'Child
tvwHelp.Nodes.Add "IND2", tvwChild, "IND2.2", "How To Add New Record ?", 2
tvwHelp.Nodes.Add "IND2", tvwChild, "IND2.3", "How To Search Record ?", 2
tvwHelp.Nodes.Add "IND2", tvwChild, "IND2.4", "How To Delete Record ?", 2

 

14. Double-Click on your TreeView, Select DblClick ( Double-Click ) Event and type this code :

     

    Select Case tvwHelp.SelectedItem.Key
    Case "IND1.2"
    lblContext.Caption = "To Add New Customer Record...."
    Case "IND1.3"
    lblContext.Caption = "To Search Customer Record...."
    Case "IND1.4"
    lblContext.Caption = "To Delete Customer Record...."
    Case "IND2.2"
    lblContext.Caption = "To Add New Inventory Record...."
    Case "IND2.3"
    lblContext.Caption = "To Search Inventory Record...."
    Case "IND2.4"
    lblContext.Caption = "To Delete Inventory Record...."
    Case Else
    lblContext.Caption = "Please Select A Topic"
    End Select

     

    

Remider : You Must Create ImageList Before Following Below Steps.

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Tabbed Dialog Control 6.0 and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create a ListView and place it in the middle of the Form.
4. Change the ListView Name Property to lvwMenu.
5. Right-Click on the ListView ( lvwMenu ) and select Properties.



6. Select General Tab and un-tick the ListView LabelWrap Property.
7. Change Arrange to 1 - lvwAutoLeft.



8. Select Image Lists Tab and change ListView Normal, Small, Column Header Property to < Your ImageList Name >.
9. Create a Label and change Name Property to lblContext.
10. Clear the Label ( lblContext ) Caption Property and place it next to the ListView ( lvwMenu ).
11. Create another Label and change Name Property to lblCtxt.
12. Change the Label ( lblCtxt ) Caption Property to Context and place it above Label ( lblContext ).
13. Double-Click on your Form and type this code :

 

lvwMenu.ListItems.Clear
Dim lstitem As ListItem


'1 is the Index, "DMX" is the key to use the Image, the name for Image, the ImageList Icon index
Set lstitem = lvwMenu.ListItems.Add(1, "DMX", "Dreamweaver MX", 2)
Set lstitem = lvwMenu.ListItems.Add(2, "EXM", "Extension Manager", 3)
Set lstitem = lvwMenu.ListItems.Add(3, "FMX", "Flash MX", 4)
Set lstitem = lvwMenu.ListItems.Add(4, "FPL", "Flash Player", 1)

 

14. Double-Click on your ListView, Select DblClick ( Double-Click ) Event and type this code :

     

    Select Case lvwMenu.SelectedItem.Key
    Case "DMX"
    lblContext.Caption = "Dreamweaver MX...."
    Case "EXM"
    lblContext.Caption = "Extension Manager...."
    Case "FMX"
    lblContext.Caption = "Flash MX...."
    Case "FPL"
    lblContext.Caption = "Flash Player...."
    End Select

     

    

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Windows Common Controls-2 6.0 and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create 2 DTPicker and place it in the middle of the Form.
4. Change one of the DTPicker Name Property to dtpDate.
5. Change another one DTPicker Name Property to dtpTime.
6. Change the DTPicker (dtpDate) Format Property to 1-dtpShortDate.
7. Change the DTPicker (dtpTime) Format Property to 2-dtpTime.
8. Change the DTPicker (dtpTime) Value Property to 00.00.
9. Create 2 Label and change Name Property to lblDate and lblTime.
10. Change the Label ( lblDate ) Caption Property to Date and place it before DTPicker (dtpDate) .
11. Change the Label ( lblTime ) Caption Property to Time and place it before DTPicker (dtpTime).
12. Create 2 Command Button and place it below of the DTPicker.
13. Change the Command Button Name Property to cmdDisplay and cmdReset.
14. Change the Command Button ( cmdDisplay ) Caption Property to Display Date And Time.
15. Change the Command Button ( cmdReset ) Caption Property to Reset Date And Time.
16. Double-click the Command Button ( cmdDisplay ) and type this line of code :

 

MsgBox "The Date You Selected Is : " & dtpDate.Value, vbInformation

MsgBox "The Time You Selected Is : " & dtpTime.value, vbInformation

 

17. Double-click the Command Button ( cmdReset ) and type this line of code :

     

    dtpDate.Value =Date

    dtpTime.value=Time

     

    

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft ADO Data Control 6.0 (OLEDB) and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create a Adodc and place it in the middle of the Form.
4. Change the Adodc Name Property to adoMyDatabase.
5. Right-click on the Adodc select Properties, Property Pages Window will appear.



6. In the Property Pages Window, click on Build.



7. Data Link Window will appear and at the Provider Tab, select Microsoft Jet 4.0 OLE DB Provider, and click Next.
8. At the Connection Tab, click on the button. Select Access Database Window will appear.



9. Select Your Database ( Microsoft Access Database ), and finally click on Test Connection.
10. Proceed if connection success else try different Database.
11. Click Ok to exit the Data Link Window.



12. At Property Pages Window, select RecordSource Tab, change Command Type to 2 – adCmdTable.
13. In the Table or Stored Procedure Name, select the table you want to view the data.
14. Click OK to exit the Property Pages Window.
15. Change the Adodc Visible Property to False.
16. Usually this control use as bridge between your program and database to retrieve data.
17. It also oftenly use with other component, likewise Hierarchical FlexGrid.

    Note : You Can Use The Same Adodc For More Then One Control At The Same Time

     

Remider : You Must Create Adodc Before Following Below Steps.

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB) and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create a MSHFlexGrid and place it in the middle of the Form.
4. Change the MSHFlexGrid Name Property to mshMyData.
5. Right-click on the MSHFlexGrid and select Property.
6. At the General tab, change Fixed Cols to 0 and click OK yo exit the Property Pages Window.



7. Select MSHFlexGrid and go to DataSource Property.
8. Select your Adodc from the list.
9. Next, right-click on MSHFlexGrid and click on Retrieve Structure.
10. Now it should retrieve the entire Field name from the Table you selected in the Adodc.
11. If there is any Field shoudn't be displayed, all you have to do is right-click on the MSHFlexGrid and go to Properties.
12. At the Bands Tab, just un-tick the Field you don’t want and click OK.



13. Create a Label and place it above your MSHFlexGrid.
14. Change the Label Name to lblGrid and change the Caption to My Data.

    

Remider : You Must Create ImageList Before Following Below Steps.

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Windows Common Controls 6.0 (SP6) and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create ToolBar on your Form, it will automatically place on the top of the Form.
4. Change the ToolBar Name Property to tbrInfo.
5. Select the ToolBar, right-click and go to the Properties, select the General Tab, at ImageList, select your ImageList.
6. At the General Tab, change Appearance to 0 – ccFlat.
7. At the General Tab, change Style to 1 – tbrFlat.



8. At the Buttons Tab and press Insert Button twice to create 2 Button.
9. To ensure that you have created 3 Button, check the Index by using the Navigation Button. Press Forward Sign Button until the value in the Index textbox is not changing anymore.
10. That value is the total number of Button.
11. Select the Buttons Tab and change the Caption, Key and Image as listed below :

    Index	Caption	Key	Image
    1	Date And Time		< Image List Icon Index>
    2	Exit	EX	< Image List Icon Index>

    

At the Buttons Tab, select Date And Time, change the Style Property to 5 - tbrDropdown.

At the ButtonMenus, press Insert ButtonMenu twice to create 2 menu button.

Change the following Property :

Index	Caption	Key
1	Date	DT
2	Time	TM

Double-click the ToolBar ( tbrInfo ) and type this line of code :

 

Select Case Button.Key

 

Case "EX"
End
Exit Sub

 

End Select

 

Double-click the ToolBar ( tbrInfo ), change the Event to BuutonMenuClick and type this line of code :

 

Select Case ButtonMenu.Key

 

Case "DT"

MsgBox "Date : " & Date
Exit Sub

 

Case "TM"

MsgBox "Time : " & Time
Exit Sub

 

End Select

 

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Tabbed Dialog Control 6.0 and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create a SSTab and place it in the middle of the Form.
4. Change the SSTab Name Property to stbInfo.
5. Right-Click on the SSTab (stbInfo) and select Properties.
6. Change Style Property to 1-ssStylePropertyPage, press Apply. Notice that you’re Tab design is changed.
7. Next, make sure Current Tab is on 0, if not; use the Navigation Button to move to the 0. Notice that, when you change the Current Tab, the Tab will move accordingly.
8. Change the SSTab Caption as listed below:

   Current Tab	Tab Caption
   0	Student Details
   1	Class Schedule
   2	Fee's Payment



9. Create 3 Command Button and place it top of the SSTab (stbInfo).
10. Change each of the Command Button Name Property to cmdstud, cmdclass and cmdfees.
11. Change the Command Button ( cmdstud ) Caption Property to Student Details.
12. Change the Command Button ( cmdclass ) Caption Property to Class Schedule.
13. Change the Command Button ( cmdfees ) Caption Property to Fee's Payment.
14. Double-click the Command Button ( Student Details ) and type this line of code :

 

stbInfo.Tab=0

 

15. Double-click the Command Button ( Class Schedule ) and type this line of code :

 

stbInfo.Tab=1

 

1. Double-click the Command Button ( Fee's Payment ) and type this line of code :

    

   stbInfo.Tab=2

    

1. Go to Project, select Component or press Ctrl+T.
2. Select Microsoft Masked Edit Control 6.0 and click OK ( Notice that there is new component loaded into your toolbox ).
3. Create a MaskEdBox and place it in the middle of the Form.
4. Change the MaskEdBox Name Property to msdID.
5. Next, for the validation part enter the MaskEdBox Mask Property ??####.
6. ??#### is the mask for 2 character and 4 digits. The mask is to ensure user enter 2 character and 4 digits.
7. Create a TextBox and place it below the MaskEdBox ( msdID ).
8. Change the TextBox Caption Property to txtID and clear the Text Property.
9. Create 2 Command Button and place it below of the TextBox.
10. Change the first Command Button Name Property to cmddisplay and the another one as cmdclear.
11. Change each of the Command Button ( cmddisplay ) Caption Property to Display Message.
12. Change each of the Command Button ( cmdclear ) Caption Property to Clear.
13. Double-click the Command Button ( cmddisplay ) and type this line of code :

 

MsgBox "MaskEdBox : " & msdID.Text & vbCrLf & "TextBox : " & txtID.Text

 

14. Double-click the Command Button ( cmdclear ) and type this line of code :

 

msdID.Mask = Empty
msdID.Text = Empty
msdID.Mask = "??####"
txtID = Empty