IF(A73X) {TRUE;}

1. The Control Properties
ໃນ Visual Basic 6 ເວລາອອກແບບຟອມ ເມື່ອເຮົາເພີ່ມ Button, Label ແລະ control ອື່ນໆ ຈະມີ Control Properties ສຳລັບກຳນົດຄ່າ ຂອງ Control ຕ່າງໆ ຕົວຢ່າງດັ່ງຮູບລຸ່ມນີ້
Image does not exist: https://image.ibb.co/nbPRuv/controlprop.jpg

ຕົວຢ່າງ ໂປຣແກຣມ ປ່ຽນສີພື້ີນຫລັງ

Private Sub Form_Load()
Form1.Show
Form1.BackColor = &H000000FF&
End Sub

2. Handling some of the common controls
ຮູບຂ້າງລຸ່ມນີ້ ແມ່ນ VB6 toolbox ເປັນ control ຟື້ນຖານ ໃນ Visual Basic 6
Image does not exist: https://image.ibb.co/nOBQMa/vb6toolbox.jpg

3. The Text Box
text box ແມ່ນມາດຕະຖານ control ທີ່ຮັບຂໍ້ມູນຈາກຜູ້ໃຊ້ ຫລື ສະແດງຂໍ້ມູນ ປະເພດ ຕົວເລກ ຕົວອັກສອນຕ່າງໆ ແຕ່ ບໍ່ສາມາດສະແດງ ເປັນຮູບພາບໄດ້
ຕົວຢ່າງ ໂປຣແກຣມ ຄຳນວນ

Private Sub  Command1_Click()
'To add the values in text box 1 and text box 2
Sum = Val(Text1.Text) +Val(Text2.Text)
'To display the answer on label 1
Label1.Caption = Sum
End Sub

ຟອມໂປຣແກຣມ
Image does not exist: https://image.ibb.co/m5Rguv/textsample.jpg
4. The Command Button
ຕົວຢ່າງ code

Private Sub Command1_Click ()
Statements
End Sub

5. The Picture Box
ເປັນ control ສຳລັບສະແດງຮູບພາບ

Picture1.Picture=LoadPicture ("C:VBprogramImagesgrape.gif")

6. The Image Box
ເປັນ control ສຳລັບສະແດງຮູບພາບ

Image1.Picture=LoadPicture ("C:VBprogramImagesgrape.gif")

7. The List Box
ເປັນ control ສຳລັບສະແດງຂໍ້ມູນເປັນລາຍການ

Private Sub Form_Load ( )
List1.AddItem "Lesson1"
List1.AddItem "Lesson2"
List1.AddItem "Lesson3"
List1.AddItem "Lesson4"
End Sub

8. The Combo Box
ເປັນ control ສຳລັບສະແດງຂໍ້ມູນເປັນລາຍການ ແລະ ເລືອກໃນ ລາຍການ ນັ້ນໆ

Private Sub Form_Load ( )
Combo1.AddItem "Item1"
Combo1.AddItem "Item2"
Combo1.AddItem "Item3"
Combo1.AddItem "Item4"
End Sub

9. The Check Box
ເປັນ control ສຳລັບໃຫ້ເລືອກ ຜູ້ໃຊ້ສາມາດເລືອກໄດ້ຫລາຍຢ່າງນຳກັນ ຖ້າ Check Box ຖືກເລືອກ ຈະມີຄ່າເທົ່າກັບ 1 ຖ້າບໍ່ໄດ້ຖືກເລືອກ ຄ່າແມ່ນ 0
ຕົວຢ່າງ

Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 0 Then
MsgBox "Apple is selected"
ElseIf Check2.Value = 1 And Check1.Value = 0 Then
MsgBox "Orange is selected"
Else
MsgBox "All are selected"
End If
End Sub

10. The Option Box
ເປັນ control ສຳລັບໃຫ້ເລືອກ ຜູ້ໃຊ້ສາມາດເລືອກໄດ້ພຽງຢ່າງດຽວ
ຕົວຢ່າງ

Private Sub Option1_Click ( )
Shape1.Shape = 0
End Sub
Private Sub Option2_Click()
Shape1.Shape = 1
End Sub
Private Sub Option3_Click()
Shape1.Shape = 2
End Sub

11. The Drive List Box
ເປັນ control ສຳລັບສະແດງ ລາຍການ Drive ໃນວິນໂດວ
Image does not exist: https://image.ibb.co/ermZga/drivecontrol.jpg
12. The Directory List Box
ເປັນ control ສຳລັບສະແດງ ລາຍການ Folder ໃນວິນໂດວ
Image does not exist: https://image.ibb.co/ehDfMa/foldercontrol.jpg
13. The File List Box
ເປັນ control ສຳລັບສະແດງ ລາຍການ Files ໃນວິນໂດວ
Image does not exist: https://image.ibb.co/bSVGuv/filecontrol.jpg