Sub SetContent(ByVal X As Boolean)
txtID.ReadOnly = CBool(X)
txtOldID.ReadOnly = CBool(X)
txtUsername.ReadOnly = CBool(X)
txtpassword.ReadOnly = CBool(X)
txtRemark.ReadOnly = CBool(X)
End Sub
// อันนี้จำไม่ได้นะคับ เดวกลับไปที่ทำงานเดวลองดุให้ //
Sub SetEnableForDDL(ByVal ValueSet As Boolean)
//ธรรมดามันจะเป็น true อยู่แล้ว
ddl.Enabled = CBool(ValueSet)
End Sub