Public Shared Function ParseArguments(ByVal args() As String) As Boolean
    Dim run As Boolean = True
    Dim arg As String
    For Each arg In args
      Select Case Mid(arg, 1, 2)
        Case "-u"
          m_username = Mid(arg, 3)
        Case "-p"
          m_password = Mid(arg, 3)
        Case "-h"
          m_host = Mid(arg, 3)
        Case "-f"
          m_hostfile = Mid(arg, 3)
        Case "-v"
          Select Case Mid(arg, 3, 1).ToUpper
            Case "E"
              m_visualstyle = VisualStyles.Enable
            Case "D"
              m_visualstyle = VisualStyles.Disable
            Case Else
              m_visualstyle = VisualStyles.Auto
          End Select
        Case "-b"
          m_startupbenchmark = True
        Case "-m"
          m_allowmultipleinstances = True
        Case Else
      End Select
    Next

    Return run
  End Function