1) Button Control

Public Class FormNFactorial

Public Function Factorial(n As Long) As Long
Dim i As Integer
Dim f As Long
f = 1
If n < 0 Then
[Link]("n value must be greater than zero", " ",
[Link], [Link])
Else
For i = 1 To n
f = f * i
Next
End If
Return f
End Function
Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles
[Link]
If [Link] = "" Then
[Link]("Please input a number", " ", [Link],
[Link])
[Link]()
Exit Sub
Else
If IsNumeric([Link]) = False Then
[Link]("Only integer number, try again!", " ",
[Link], [Link])
[Link]()
Exit Sub
Else
[Link] = Factorial(CLng([Link]))
End If
End If
End Sub
End Class

ទំ ព័រ | 1
2) Group Box, Radio Button and Picture Box Control
(image path: ...\bin\Debug\images\...)

Public Class Picture

Private Sub Picture_Load(sender As Object, e As EventArgs) Handles [Link]
[Link] = New Size(325, 325)
[Link] = [Link]
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles
[Link], [Link], [Link],
[Link], [Link]
If [Link] = True Then
[Link]([Link] + "\images\[Link]")
ElseIf [Link] = True Then
[Link]([Link] + "\images\[Link]")
ElseIf [Link] = True Then
[Link]([Link] + "\images\[Link]")
ElseIf [Link] = True Then
[Link]([Link] + "\images\[Link]")
Else
[Link]([Link] + "\images\[Link]")
End If
End Sub
End Class

3) Text Box Control

ទំ ព័រ | 2
Public Class Form3
Public Structure Person
Dim Name As String
Dim Gender As String
Dim Address As String
End Structure
Public Function GetPerson(ID As String) As Person
Dim temp As New Person
Select Case ID
Case "1"
[Link] = "MEAN Samnang"
[Link] = "Male"
[Link] = "Svay Rieng"
Case "2"
[Link] = "KAO Nearintepi"
[Link] = "Female"
[Link] = "Siem Reap"
Case "3"
[Link] = "HENG Sensok"
[Link] = "Male"
[Link] = "Phnom Penh"
Case Else
[Link]("Index is between 1 to 3")
End Select
Return temp
End Function
Private Sub btnGetMyFriend_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim p As Person
p = GetPerson([Link])
[Link]("Name: " & [Link] & vbCrLf & "Gender: " & [Link] & vbCrLf &
"Address: " & [Link])
[Link]()
[Link] = 0
[Link] = Len([Link])
End Sub
End Class

4) Combo Box Control

ទំ ព័រ | 3
Public Class Form4

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles [Link]

[Link]("Red")
[Link]("Green")
[Link]("Blue")
End Sub

Private Sub cboColor_SelectedIndexChanged(sender As Object, e As EventArgs)

Handles [Link]
Dim str As String
Dim c As String = 0
str = [Link]
Select Case str
Case "Red"
[Link] = [Link]
c = "Red"
Case "Green"
[Link] = [Link]
c = "Green"
Case "Blue"
[Link] = [Link]
c = "Blue"
End Select
[Link] = "This color is " & c
End Sub
End Class

5) Check Box Control

ទំ ព័រ | 4
Public Class Form5

Private Sub Form5_Load(sender As Object, e As EventArgs) Handles [Link]

[Link] = False
[Link] = False
[Link] = False
[Link]("Bold")
[Link]("Italic")
[Link]("Underline")
End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles

[Link]
If [Link] = True Then
[Link] = True
Else
[Link] = False
End If
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles
[Link]
If [Link] = True Then
[Link] = True
Else
[Link] = False
End If
End Sub
Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles
[Link]
If [Link] = True Then
[Link] = True
Else
[Link] = False
End If
End Sub

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles

[Link], [Link], [Link]
If Asc([Link]) > 57 Or Asc([Link]) < 48 Then
If [Link] <> Chr([Link]) Then
[Link]("Invalid Numbers.")
[Link] = True
End If
End If
End Sub

Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

Handles [Link]
Dim sb As New [Link]
Dim str As String
For Each i In [Link]
[Link](i)
[Link](" ")
Next
str = Trim([Link]())
If str = "Bold" Then
Dim f As New Font("Times New Roman", 18, [Link])
[Link] = f
ElseIf str = "Bold Italic" Then
Dim f As New Font("Times New Roman", 18, [Link] Or
[Link])
[Link] = f

ទំ ព័រ | 5
 ElseIf str = "Bold Italic Underline" Then
Dim f As New Font("Times New Roman", 18, [Link] Or
[Link] Or [Link])
[Link] = f
ElseIf str = "Italic Underline" Then
Dim f As New Font("Times New Roman", 18, [Link] Or
[Link])
[Link] = f
ElseIf str = "Underline" Then
Dim f As New Font("Times New Roman", 18, [Link])
[Link] = f
ElseIf str = "Bold Underline" Then
Dim f As New Font("Times New Roman", 18, [Link] Or
[Link])
[Link] = f
ElseIf str = "Italic" Then
Dim f As New Font("Times New Roman", 18, [Link])
[Link] = f
Else
Dim f As New Font("Times New Roman", 18, [Link])
[Link] = f
End If
End Sub

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles

[Link]
If [Link] = True And [Link] = False And [Link] =
False Then
[Link] = [Link]
ElseIf [Link] = False And [Link] = True And
[Link] = False Then
[Link] = [Link]
ElseIf [Link] = False And [Link] = False And
[Link] = True Then
[Link] = [Link]
ElseIf [Link] = True And [Link] = True And
[Link] = False Then
[Link] = CInt([Link]) + CInt([Link])
ElseIf [Link] = False And [Link] = True And
[Link] = True Then
[Link] = CInt([Link]) + CInt([Link])
ElseIf [Link] = True And [Link] = False And
[Link] = True Then
[Link] = CInt([Link]) + CInt([Link])
ElseIf [Link] = True And [Link] = True And
[Link] = True Then
[Link] = CInt([Link]) + CInt([Link]) +
CInt([Link])
Else
[Link]("No value", "Info", [Link],
[Link])
End If
End Sub
End Class

ទំ ព័រ | 6
rebobeRbI Textbox, Label, Button,Timer Control

]TahrN_³
]bmafaelakGñk manTRmg; Form dUcrUbPaBxageRkam ³

sUmTajyk Timer Control mYymkKUelI Form dUcrUbPaBxageRkam ³

eKalbMNg ³
- eBlEdlelakGñkcucelI Start Button sUmeFVIkarRkLúkelxenAkñúg Textbox TaMgbI
.
(txtDigit1 , txtDigit2, txtDigit3 )

- eBlEdlelakGñkcucelI Stop Button sUmQb;RkLúkelx ehIyeGaytMélelx

enaHbgðajkñúg Textbox TaMgbI.

ទំ ព័រ | 7
Source Code:
...........................................................................................................................
Private Sub btnStart_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]( )
[Link] = 150
End Sub
.........................................................................................................................
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As [Link]) Handles
[Link]
[Link] = CInt(Rnd( ) * 9)
[Link] = CInt(Rnd( ) * 9)
[Link] = CInt(Rnd( ) * 9)
End Sub
.........................................................................................................................
Private Sub BtnStop_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]( )
End Sub
.........................................................................................................................
lT§pl ³

ទំ ព័រ | 8
6) List Box and Check List Box Control
]bmafaelakGñkmanTRmg; Form dUcrUbPaBxageRkam ³

txtItemToList txtItemToCheckedList

BtnAddtoList BtnAddChkList

Listbox1 CheckedListbox1

eKalbMNg ³
- eBlEdlelakGñkcucelI BtnAddToList Button sUmeGay Data EdlmanenAkñúg
txtItemToList cUleTAkñúg Listbox1 b:uEnþmineGaymanTinñn½ysÞÜn

- eBlEdlelakGñkcucelI BtnAddChkList Button sUmeGay Data EdlmanenAkñúg

txtItemToCheckedList cUleTAkñúg CheckedListbox1 b:uEnþ mineGaymanTinñn½ysÞÜn.

- eBlEdlelakGñkcucelI BtnMoveRightAll ( >> ) Button sUmGanTinñn½y

TaMgGs;eTAdak;cUlkñúg CheckedListbox1 ehIysUmlubral; Item TaMgGs;EdlmanenAkñúg Listbox1

.
- eBlEdlelakGñkcucelI BtnMoveRightSelected ( > ) Button sUmGanTinn ñ ½yEdl)an
Selected enAkñúg Listbox1 eTAdak;cUlkñúg CheckedListbox1 ehIysUmlubral; Item Edl)an

Selected enAkñúg Listbox1 enaHecaldUcrUbPaBxageRkam ³

ទំ ព័រ | 9
 -eBlEdlelakGñkcucelI BtnMoveLeftSelected ( < ) Button sUmGanTinñn½yEdl)an FIk
(Checked Item) enAkñúg CheckedListbox1 eTAdak;cUlkñúg Listbox1 vijehIysUmlubral; Item

Edl)anFIkTaMgGs;enaHecalvij dUcrUbPaBxageRkam ³

- eBlEdlelakGñkcucelI BtnMoveLeftAll ( << ) Button sUmGanTinñn½yEdl manenAkñúg

CheckedListbox1 TaMgGs;eTAdak;cUlkñúg Listbox1 ehIysUmlubral; Items TaMgGs;EdlmanenAkñúg

CheckedListbox1enaHecal.

- eBlEdlelakGñkcucelI BtnSearchList Button sUmeGayelcecjpÞaMg Inputbox

mYysMrab;eGayelakGñkvay Item EdlelakGñkcg;EsVgrkdUcrUbPaBTI5>5 ehIyRbsin

ebIvaEsVgrkeXIjsUmeTA Select eGaycM Item enaHenAkñúg Listbox1 dUcKñaEdlcMeBaH
BtnSearchChkList .

ទំ ព័រ | 10
- eBlEdlelakGñkcucelI BtnClearList sUm Clear ItemData TaMgGs;EdlmanenAkñúg Listbox1.
- eBlEdlelakGñkcucelIBtnClearChkListsUme)aHFIkEdlmanenAkñúg CheckedListbox1

ecalTaMgGs; .
- eBlEdlelakGñkcucelI BtnRemoveSelItem sUmlubral; ItemData Edl)an Selected

TaMgGs;kñúg Listbox1 ecalTaMgGs; .

- eBlEdlelakGñkcucelI BtnRemoveChkItem sUmlubral; ItemData Edl)anFIkTaMg
Gs;EdlmanenAkñúg CheckedListbox1 ecalTaMgGs; .
Source Code:
...........................................................................................................................
Private Sub FrmUsingListbox_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = [Link]
End Sub
.........................................................................................................................
Private Sub BtnAddToList_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
If [Link]([Link]) >= 0 Then
MsgBox("Item is already exist")
[Link] = 0
[Link] = [Link]
[Link]( )
Exit Sub
End If
[Link]([Link])
End Sub
.........................................................................................................................

ទំ ព័រ | 11
 Private Sub BtnAddToChkList_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
If [Link]([Link]) >= 0 Then
MsgBox("Item is already exist")
[Link] = 0
[Link] = [Link]
[Link]()
Exit Sub
End If
[Link]([Link])
End Sub
.........................................................................................................................
Private Sub BtnSearchList_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim Indx As Int16
Dim Findstr As String = ""
Findstr = InputBox("Please enter Item that you want to find")
If Findstr = "" Then
MsgBox("You must enter item before to find on list")
Exit Sub
End If
Indx = [Link](Findstr)
If Indx >= 0 Then
[Link](Indx, True)
Else
MsgBox("Item not found")
End If
End Sub
.........................................................................................................................
Private Sub BtnClearList_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]()
End Sub
.........................................................................................................................
Private Sub BtnRemoveSelItem_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Do While [Link]
[Link]([Link](0))
Loop
End Sub
.........................................................................................................................
Private Sub BtnMoveRightAll_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim i As Int16
For i = 0 To [Link] – 1
[Link]([Link](i))
Next
For i = [Link] - 1 To 0 Step -1
[Link](i)
Next
End Sub

ទំ ព័រ | 12
.........................................................................................................................
Private Sub BtnMoveRightSelected_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim i As Int16
If [Link] = 0 Then
MsgBox("Please Select item/items that you want to move")
Exit Sub
End If

For i = 0 To [Link] – 1
[Link]([Link](0))
Next
End Sub
.........................................................................................................................
Private Sub BtnMoveLeftChecked_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = 0 Then
MsgBox("Please check item/items that you want to move")
Exit Sub
End If
While [Link] > 0
[Link]([Link](0))
[Link]([Link](0))
End While
End Sub
.........................................................................................................................
Private Sub BtnSearchChkList_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Call ClearCheckItem(Me.CheckedListBox1)
Dim findStr As String = ""
Dim indx As Int16
findStr = InputBox("Please enter item to search")
If findStr = "" Then
[Link]("You must enter item")
Exit Sub
End If
indx = [Link](findStr)
If indx >= 0 Then
[Link](indx, True)
[Link](indx, True)
Else
MsgBox("Item not found")
End If
End Sub
.........................................................................................................................

Private Sub BtnClearCheck_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]
Call ClearCheckItem(Me.CheckedListBox1)
End Sub
.........................................................................................................................

ទំ ព័រ | 13
 Private Sub BtnRemoveChkItem_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Do While [Link]
[Link](
[Link](0))
Loop
End Sub
.........................................................................................................................
Sub ClearCheckItem(ByVal ChkList As CheckedListBox)
Dim i As Int16
For i = 0 To [Link] – 1
[Link](i, [Link])
Next
End Sub
.........................................................................................................................

7) Windows Media Control

Public Class FormWindowsMediaPlayer

Private Sub btnOpenAndPlay_Click(sender As Object, e As EventArgs) Handles

[Link]
Dim filePath As String = ""
[Link] = "mp3 file|*.mp3|wmv file|*.wmv|dat file|*.dat|mp4
file|*.mp4"
[Link]()
filePath = [Link]
If [Link]() = "" Then
[Link]("Invalid file to open.")
End If
[Link] = filePath
End Sub
End Class
8) Font and Font Dialog Control
9) Date Time Picker Control
]mafaelakGñk)anTajyk Combox, Listbox, DateTimePicker ehIynig MonthCalender

mkKUrelI Form dUcrUbPaB.

ទំ ព័រ | 14
eKalbMNg ³
- enAeBlEdlelakGñkcucelI AddTimeInAndDate Button sUmTajykem:agBI
DateTimePicker Control mkdak;bBa©Úlkñúg Combox1 ehIyTajykéf¶ExqñaMBI DateTimePicker

Control mkdak;bBa©Úlkñúg CheckedListbox1 .

- enAeBlEdlelakGñkcucelI Search Button sUmEsVgrkéf¶ExqñaMgEdlmanenAkñúg

CheckedListbox1 NaEdldUcKñaeTAnwg MonthCalender1 EdlelakGñk)aneRCIserIsykva.

ទំ ព័រ | 15
Source Code:
]bmafaelakGñkbegáIt Standard Module mYyEdlmaneQµaHfa ModSubProcedure ehIy Cut Sub
Procedure EdlmaneQµaHfa ClearCheckItem mkdak;kñúg Module enaH.

kUdenAelIFrmUsingDateTimePicker
...........................................................................................................................
Private Sub BtnAdd_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]([Link])
[Link]([Link])
End Function
.........................................................................................................................
Private Sub BtnSearch_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim i As Int16
Dim isFound As Boolean = False
Call ClearCheckItem(Me.CheckedListBox1)
For i = 0 To [Link] – 1
If [Link](i) = [Link] Then
[Link](i, True)
isFound = True
End If
Next
If isFound = False Then
[Link]("The date is not found")
End If
End Function
.........................................................................................................................

ទំ ព័រ | 16
lT§pl ³

10) List View Control

]bmafaelakGñkTajyk ListView nig ImageList mkKUrelI Form dUcrUbPaBxageRkam ³

ListView

ទំ ព័រ | 17
 bnÞab;mksUmelakGñkeFVIkarbBa©ÚlrUbPaBeGay ImageList1 dUcrUbPaBxag eRkam ³

eKalbMNg ³
-eBlEdlelakGñkcucelI AddToList Button sUmeFVIkarbBa©ÚlTinñn½yBI txtProductCode,
txtProductName, txtQuantity, txtUnitPrice cUleTAkñúg ListView1 dUcrUbPaBxageRkam ³

ទំ ព័រ | 18
 -eBlEdlelakGñkcucelI Search Button sUmeFVIkarEsVgrk ProductCode EdlmanenAkñúg
Listview1 enAeBlEdlEsVgrkeXIjsUmFIk nig Select elIBYkvadUcrUbPaBxageRkam ³

enAeBlEdlelakGñkcucelI
- Delete Button sUmlub ProductCode TaMgLayNaEdl
)anFIkecaldUcrUbPaBxageRkam ³

enAeBlEdlelakGñkcucelI
- Update Button sUmeFVIkarEkERbTinñn½ykñúg ListView1

eTAtamelxkUd ProductCode .

ទំ ព័រ | 19
 eBlEdlcucelI ReadProductName Button sUmGan Column ProductName ecjBI ListView1
-

dUcrUbPaBxageRkam ³

Source Code:
.........................................................................................................................
Private Sub FrmUsingListView_Load(ByVal sender As
[Link], ByVal e As [Link]) Handles [Link]
[Link] = [Link]
[Link]("ProductCode")
[Link]("ProductName")
[Link]("Quantity")
[Link]("UnitPrice")
[Link] = [Link]
[Link] = Me.ImageList1
[Link] = True
[Link] = True
[Link] = True
End Sub
...........................................................................................................................
Private Sub BtnAddList_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim LItem As New ListViewItem()
[Link] = [Link]
[Link]([Link] & "")
[Link]([Link] & "")
[Link](FormatCurrency([Link] &
"", 2))
[Link] = 2
[Link](LItem)
End Sub
...........................................................................................................................
Private Sub BtnSearch_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim Pcode As String = InputBox("Please enter Product Code")

If Pcode = "" Then

[Link]("You must enter ProductCode")

ទំ ព័រ | 20
 Exit Sub
End If

Dim i As Int16
For i = 0 To [Link] - 1
If [Link](i).Text = Pcode Then
[Link](i).Selected = True
[Link](i).Checked = True
[Link]()
End If
Next
End Sub
...........................................................................................................................
Private Sub BtnUpdate_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim i As Int16
For i = 0 To [Link] - 1
If [Link](i).Text = [Link] Then
[Link](i).SubItems(1).Text = [Link]
[Link](i).SubItems(2).Text = [Link]
[Link](i).SubItems(3).Text = FormatCurrency([Link], 2)
End If
Next
End Sub
...........................................................................................................................
Private Sub BtnDelete_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim i As Int16
For i = [Link] - 1 To 0 Step -1
If [Link](i).Checked = True Then
[Link](i)
End If
Next
End Sub
...........................................................................................................................
Private Sub BtnReadProName_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim i As Int16
Dim PName As String = ""
For i = 0 To [Link] - 1
PName &= "Product Name" & vbCrLf & [Link](i).SubItems(1).Text
Next
MsgBox(PName)
End Sub
...........................................................................................................................
Function IsNumber(ByVal Keychr As Char) As Boolean
If InStr("0123456789" & Chr(8) & Chr(13), Keychr, [Link]) < > 0 Then
Return True
End If
End Function
...........................................................................................................................

ទំ ព័រ | 21
Private Sub txtQuantity_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If IsNumber([Link]) = False Then
MsgBox("Invalid Number")
[Link] = True
End If
End Sub
...........................................................................................................................
Private Sub txtUnitPrice_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If IsNumber([Link]) = False Then
MsgBox("Invalid Number")
[Link] = True
End If
End Sub
...........................................................................................................................
Private Sub RadioList_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = [Link]
End Sub
...........................................................................................................................
Private Sub RadioSmallIcon_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = [Link]
End Sub
...........................................................................................................................

Private Sub RadioDetails_CheckedChanged(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = [Link]
End Sub
...........................................................................................................................

11) Tree View Control

]bmafaelakGñkTajyk TreeView mkKUrelI Form dUcrUbPaBxageRkam ³

ទំ ព័រ | 22
Source Code:
.........................................................................................................................
Private Sub bttnCategories_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]("Shapes")
[Link]("Solids")
[Link]("Colors")
EnableButtons()
End Sub
...........................................................................................................................
Private Sub bttnColors_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim cnode As TreeNode
cnode = [Link](2)
[Link]("Pink")
[Link]("Maroon")
[Link]("Teal")
[Link]()
End Sub
...........................................................................................................................
Private Sub bttnShapes_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim cnode As TreeNode
cnode = [Link](0)
[Link]("Square")
[Link]("Triangle")
[Link]("Circle")
End Sub
...........................................................................................................................
Private Sub bttnPopulate_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim cnode As TreeNode

[Link]("Shapes")
[Link]("Solids")
[Link]("Colors")

cnode = [Link](0)
cnode = [Link](0)
[Link]("Square")
[Link]("Triangle")
[Link]("Circle")

cnode = [Link](2)
[Link]("Pink")
[Link]("Maroon")
[Link]("Teal")
[Link]()

End Sub
...........................................................................................................................

ទំ ព័រ | 23
Private Sub BtnSorted_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link] = True
End Sub
...........................................................................................................................

Private Sub bttnPopulateSorted_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]
[Link] = True
bttnPopulate_Click(sender, e)
End Sub
...........................................................................................................................
Private Sub brrnClear_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]()
DisableButtons()
End Sub
...........................................................................................................................
Private Sub bttnMoveTree_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim colorNode, shapeNode, solidNode As TreeNode
colorNode = [Link](0)
shapeNode = [Link](1)
solidNode = [Link](2)
[Link]()
[Link]("Items")
[Link](0).[Link](colorNode)
[Link](0).[Link](shapeNode)
[Link](0).[Link](solidNode)
End Sub
...........................................................................................................................
lT§pl ³

ទំ ព័រ | 24