Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String

Dim word As String
Private Sub Command1_Click()
    word = Text1.Text
    s_word = Mid(word, 8, 3)
    MsgBox s_word
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Mid"
End Sub

String url = "MYURL",
       proxy = "MYPROXY",
       port = "";//MyPORT
...
Properties systemProperties = System.getProperties();
systemProperties.setProperty("http.proxyHost",proxy);
systemProperties.setProperty("http.proxyPort",port);
HttpURLConnection connection = (
    HttpURLConnection)server.openConnection();
connection.connect();
...

public int Get_Key( int k )
{
if ( k == KEY_NUM0 ) return K_NUM0;
}

public boolean getKeyState( int k ) {
if ( ( keyBuffer & k ) == k ) return true;
return false;
}