Dim wmi As System.Management.ManagementObjectSearcher = _
                New System.Management.ManagementObjectSearcher("SELECT * FROM" & _
                "WIN32_SERVICE")
        For Each moo As System.Management.ManagementObject In wmi.Get
            If (moo.Item("Name").ToString.ToUpper = "MYSQL") Then
                MessageBox.Show("MySQL StartMode: " + moo("StartMode").ToString)
            End If
        Next