Private Shared _ Function GetAsyncKeyState(ByVal key As Keys) As IntegerEnd Function’ Check whether a key is pressed, at any given time’ Example: MessageBox.Show(IsKeyPressed(Keys.A))Function IsKeyPressed(ByVal key As Keys) As Boolean Return
‘ Retrieve the installed MDAC version” Examples:’ Dim ver As Version = GetMdacVersion()’ ‘ print the full version’ MessageBox.Show(ver.ToString())’ ‘ print the major and minor portions’ MessageBox.Show(“Major: ” & ver.Major
‘ Add or remove an event handler through reflection,’ and return True if successful” Examples:’ ‘ add an event handler for Button1’s Click event’ AddRemoveEventHandler(Button1, “Click”, New EventHandler(AddressOf ‘ OnButton1Click))’
‘ Assign the same transaction to the Update/Delete/Insert commands of all the ‘ OleDb/SqlAdapters passed in input’ Note: all the DataAdapters must be of the same type (OleDb or Sql)’
‘ Check whether a string ends with one of multiple possible choices.’ Return -1 if no possible string matches the end of the source,’ otherwise return the index of the
‘ Check whether a string starts with one of multiple possible choices.’ Return -1 if no possible string matches the start of the source,’ otherwise return the index of the